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Preface 


This book is an expression of the simple things in life. We often face 
challenges, particularly in technological areas, that are so complex they 
only “boggle the mind. ” Apple Games goes beyond that or short of that, 
depending on your perspective. It is short, simple, and sweet. This book 
shows you how several complete, ready- to-run, and entertaining games 
were conceived, designed, and implemented. 

In addition to game programs, there are two utility programs. Shape 
Table Generator can be used to develop your own Apple graphics. Master 
Catalog can be used to bring order to your collection of programs. 

Apple Games contains intermediate-level programs. Most are written 
in BASIC, although some include special machine-language routines that 
increase program speed and execution. There are complete listings and 
explanations for every program. 

Now, your question might be “What can I do with these games?’’. 
Well, you could play them, but that is not their greatest value. Because the 
concepts used in these games are documented and explained, they can be 
used in your programming. In this way, you will not only have fun, you 
will learn. 

Take time to study the program listings. Then, if you feel adventurous, 
“poke around’’ and change lines to see “what happens.’’ You may be 
surprised at what you can do. 

One of the easiest ways to test your new programming skills is to 
change a program so it uses different input. For example, some of the 
programs use game paddles and/or joysticks. If you don’t have either, 
change the input routines to use the keyboard. By changing appropriate 
sections, you can learn more about programming. 

If you purchased this book as part of a Combo Pack, you have the 
programs on disk. If you bought the book separately, you have to type in 
the listings. The programs, when entered as they appear in the book, are 
designed to be controlled from a main menu. The menu program is in 
Section 1. It is best to begin reading from there. 

NOTE: The first line of each program includes a REMark statement. 
This statement contains the name of the program. Use this name when 
saving the program to disk , otherwise , the menu will not work correctly. 

Each chapter is comprised of several parts. The first part is a general 
statement about the program. The second is the rules or instructions for 
using the game or program. The third is a set of programming notes that 
will explain the operation of different parts of the program. Finally, each 
chapter contains the program listing for the game or program detailed. 


As you play the games, study the programs, and use, explore and learn 
from this book, I hope you will have more than a little fun. After all, that is 
part of what computers and games are all about. 

Allen Wyatt 




This book is dedicated to my children , Allen Lee and Eric Christopher. 
May they always discover the joy of learning through play. 
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A NOTE TO THE READER 


The programs in this book were not written as applications software 
but as educational examples of what your personal computer can do. All 
of the programs have been tested and work on the machine configuration 
for which they were designed. The programs are unprotected. This 
means that you can modify them to better understand how they work or to 
fit a different machine configuration. 

What Is a Combo Pack? 

A Combo Pack, like this package, is a step beyond your average 
technical book. While most books give you programming examples 
through printed listings (which we do here), Combo Packs provide the 
book and the listings recorded on magnetic media, either disk, cassette 
tape, or both. 

Every effort has been made to be clear, concise, and informative about 
how these programs and routines work. If you experience any difficulty 
with the software operations, the solution can be found in the book or in 
your computer manuals. 

We are rather proud of the time and effort that went into preparing the 
Combo Pack. If you have purchased the Combo Pack and have enjoyed 
using it, let us know your thoughts. Your comments will be valuable in 
preparing future Combo Packs. 

LOADING INSTRUCTIONS 

The disk accompanying this Combo Pack contains the program listings 
printed in the book. To use the Apple Games disk, you must have a 48K 
Apple II compatible system, with Applesoft® in ROM or on a Language 
(RAM) card, and one disk drive with DOS 3.3. Game paddles or a 
joystick are required on selected games. 

To use Apple Games , follow these steps: 

1 . With your computer turned off, insert the Apple Games disk in the disk 
drive (drive one if you have more than one disk drive). 

2. Turn your computer on. 

3. In a few moments, the Apple Games demonstration screen will be 
displayed. 

4. Press <ESC> to exit the demonstration screen. 


Applesoft is a registered trademark of Apple Computer Inc. 


5. The Main Menu will be displayed. Press <RETURN> to see the 
second screen of menu choices. Follow the instructions in Section 1 
(The Main Menu Program). 


The Apple Games disk is write protected; consequently, you cannot 

make changes to the disk. To alter any of the programs (and as a 

precautionary measure) make a backup copy of the disk as follows: 

1 With your computer turned off, insert a DOS 3.3 System Master 
(supplied by Apple) in the disk drive (drive one if you have more than 
one disk drive). 

2. Turn your computer on. 

3. In a few moments, you will see the Apple prompt. 

4. Type COPY A and follow the directions on the screen. 

5. Label the backup Apple Games disk and put the original in a safe 
place. 
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Section 1 

THE MAIN MENU PROGRAM 
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The Main Menu Program 


Most disk-based programs are menu driven; the available programs or 
functions can be selected from a list of choices that are clearly and 
conveniently displayed on the screen. Master Catalog (Program 14) uses 
menus extensively. 

The menu for the Apple Games system is simple. It presents 15 choices 
on two screens. The games are listed on the first screen and the remaining 
(miscellaneous) programs are on the second. 

In addition to the program choices, the menu also has an option to exit 
the program. It is a good idea to include a way to exit, because the user 
could become confused and want to end the program, or he might want to 
go on to something else. 

% 

Program Instructions 

1 . The program runs automatically after booting the Apple Games disk 
(after you press <ESC> to exit the demonstration screen). 

2. Press < RETURN > to see the other screen of menu choices. 

3. Enter the number that corresponds to the program you want to run. 

4. Press <RETURN>. The disk light will come on as the program is 
loading, then the program will begin. 

5. When you exit the menu, the computer returns to the Applesoft 
BASIC command level. 


Programming Notes 


The menu program should be saved under the name MENU so when 
you exit a program you can return to the menu to choose another. 


10-40 

50-110 

120 

130-150 

160 

170 

180-200 

210-260 

1000-1050 


Program initialization 

Print first page of menu choices 

Wait for your input 

Print second page of menu choices 

Wait for your input 

Loop to first-page display 

Prompt and receive your input 

Run selected program 

Program name data 
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Main Menu. 


10 HGR sTEXT : HOME 

20 NP = 15 : G = llsM = 15 

30 DIM P$(NP) 

40 FOR X = 1 TO NP : READ P$(X):NEXT 

50 HOME : PRINT TAB ( 14); "APPLE GAMES" 

60 VTAB 20: POKE 34, 3: HOME 

70 PRINT "GAME PROGRAMS:" 

80 PRINT : PRINT 

90 FOR X = 1 TO G: IF X < 10 THEN PRINT " "; 

100 PRINT X;") "?P$(X) 

110 NEXT 

120 GOSUB 130 

130 HOME : PRINT "MISCELLANEOUS :": PRINT : PRINT 
140 FOR X = G + 1 TO M: PRINT X;") ";P$(X) 

150 NEXT 

160 GOSUB 180 

170 HOME : GOTO 70 

180 VTAB 21: INPUT "CHOICE OR <RETURN> FOR MORE: ";C 

H$ 

190 IF CH$ = CHR$ (13) THEN RETURN 

200 CH = VAL ( CH$ ) : IF CH < 1 OR CH > NP THEN RETURN 

210 POKE 34,0: PRINT 

220 VTAB 21 : HTAB 1:CALL - 868 

230 IF CH = NP THEN TEXT :HOME .-PRINT "HAVE A NICE D 
AYi": GOTO 260 

240 A$ = "NOW LOADING " + P$(CH):PRINT TAB ( 20 - LEN 
(A$) / 2 ) ; A$ 

250 PRINT " RUN" ; P$ ( CH ) 

260 END 

1000 DATA FLIP FLOP, MASTERMIND, TOWERS, SHERLOCK' S HOME 
, ATTACK OF THE ZARGONS , PHASER PRACTICE 
1010 DATA ACEY-DUCEY, BIG GOVERNMENT 
1020 DATA TIC-TAC-TOE , QUBIC , DEPTH CHARGE 
1030 DATA SHAPE TABLE GENERATOR 

1040 DATA OPENING CEREMONIES , MASTER CATALOG 

1050 DATA EXIT PROGRAMS 
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Section 2 


GAME PROGRAMS 


1. Flip Flop 


This is an easy-to-play game of chance. You guess what the computer’s 

next move will be. As you will soon discover, this can be very aggravat- 
ing. 

The object of the game is to change a row of 10 X’s to 10 O’s in as few 
moves as possible. You do this by choosing the position of the character 
you want to change. Sounds easy, right? Well, there’s a catch — the 
computer also may randomly change a character. The computer could 
change the position you selected in the previous move, thus negating your 
choice. Take heart, however, because the odds are in your favor. 

You may find Flip Flop not only aggravating, it may also be addictive. 
Your chance of winning depends on whether or not the Powers-That-Be 
recognize the sincerity of your efforts. Look sincere and don’t berate the 
computer if it takes you longer to win than you first thought. After all, 
your computer is only a tool for the Powers-That-Be! 


Game Rules 

1 . If you are selecting the game from the Main Menu, choose 1 . If you are 
not using the menu, run the program. 

2. The directions will be displayed. 

3. Press a 0 through 9 to change the corresponding X to an O, or O to X. 

4. Try to change all 10 X’s to O’s. 

5. Pressing <ESC> at any time ends the game. 

6. When the game is finished, you can play again or return to the Main 
Menu. 


Programming Notes 

This game utilizes text and sound. One of the first steps is to POKE a 
very short machine-language sound-generation routine into page 3 of 
memory. This routine is then called throughout the program when sound 
is desired. Fig. 1-1 shows a “disassembled” listing of the routine; because 
it is used in several programs, you may want to study it. 
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0300- A6 01 

LDX 

$01 

* Duration 

0302- A4 00 

LOOPl LDY 

$00 

* Pitch 

0304- AD30C0 

LDA 

$C030 

* Toggle speaker 

0307- 88 

LOOP2 DEY 



0308- D0 FD 

BNE 

$0307 

* To Loop2 

030A- CA 

DEX 



030B- D0F5 

BNE 

$0302 

* To Loopl 

030D- 60 

RTS 


* Finished 


Fig. 1-1. Sound-generation routine. 


First, the pitch and duration has to be set when the routine is called. 
This is done by storing (using the POKE command) the desired pitch in 
memory location 0, and the duration in memory location 1. Then, a call is 
made to 768 ($300) to produce the sound. 

Although this routine is short, it is all that is needed to produce a 
controlled sound. The sound is produced by toggling (or clicking) the 
speaker. However, if it was produced using one click right after another 
you would only hear a buzz. To eliminate the buzz, there is a short delay 
between each click on the speaker. This is what produces the pitch. Using 
different pitch values in memory location 0 changes the time delay 
between each click of the speaker, thus producing different tones. 

The duration is the length of time the tone will play. The larger the 
number stored in memory location 1, the longer each tone. In this 
program, we produce a short tone by using a value of 20. 

The sound-generation routine is used in the subroutine in lines 540 
through 560. Each character of Z$ is printed, one at a time, followed by a 
short, randomly chosen, musical note. A “trilling” effect is produced as 
each character in the string is displayed. 


10-20 

30-180 

190-200 

210-220 

230-400 

410 

420-430 

440-450 

460-480 

490-520 


Program initialization and sound routine 

Instructions 

Game initialization 

Get string and print it 

Get your input and randomly change X’s to O’s or O’s to X’s 

Increment turn counter 

Check for winner and loop if none 

Delay and print final string value 

End of game message 

Elay again or exit to Main Menu 
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530 

540-560 


Concatenate game array to a string 
Print a string while playing random sounds 


10 

20 


30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 


Flip Flop. 


TEXT :HOME 

POKE 768,166:POKE 769,l:POKE 770,164:POKE 771 0: 
POKE 772,173:POKE 773,48:POKE 774,192:POKE 775 1 
36 : POKE 776,208:POKE 777,253:POKE 778 , 202 : POKE* 7 
79 , 208 s POKE 780,245:POKE 781,96 
SPEED= 175 

GOSUB "540 ° BJECT 0F THE ANCiENT GAME OF" :VTAB 2: 

Z$ = "FLIP FLOP" sGOSUB 540 

Z$ = "IS TO CHANGE THIS: "sGOSUB 540 

z$ = "X X X X X X X X X X" : VTAB 6 sGOSUB 540 

Z$ - "TO THIS : " : VTAB 8 sGOSUB 540 

Z f "° 0 0 0 O 0 O O O O" sVTAB 10:GOSUB 540 

Z$ - "IN AS FEW MOVES AS POSSIBLE •" sVTAB 12:GOSU 

B 540 

Z$ = "TO CHANGE A POSITION, PRESS THE NUMBER" sVT 
AB 14 sGOSUB 550 

Z$ = "OF THAT POSITION. IT WILL THEN BE" sGOSUB 
5 50 

Z$ = "CHANGED. HOWEVER, THE GODS MAY NOT" sGOSUB 
550 

Z$ = "SMILE GRACIOUSLY UPON YOUR EFFORTS. AND" • G 
OSUB 550 

SUB = 550 HE P0SITI0NS CHANGE ON THEIR OWN.":GO 

Z$ = "...GOOD LUCK I" sVTAB 20 sGOSUB 550 

Z$ = "P.S.s TO QUIT THE GAME, PRESS <ESC> . " sVTAB 
22 sGOSUB 550 

SPEED= 255 sFOR X = 1 TO 3000sNEXT sHOME 

FOR X = 1 TO 10 : A$ (X) = "X" sNEXT 

VTAB 8 s HTAB 10 sPRINT “1 2 3 4 5 6 7 8 9 0" 

GOSUB 530 

VTAB 9: HTAB Is CALL - 868s FOR X = 1 TO 300 sNEXT 

sHTAB 10 sGOSUB 550 

VTAB 20 sPRINT "TO CHANGE: "7 

GET CH$sIF CH$ = CHR$ (27) THEN HOME sPRINT : GO 
TO 490 

IF ASC (CH$) < 48 OR ASC (CH$) > 57 THEN 240 
N - VAL (CH$):IF N = 0 THEN N = 10 
PRINT :M = N 

IF A$ ( N) = "O" THEN 320 
A$(N) = "O" 

00 = INT ^ RND ^ * 11 ) s IF N < 1 OR N > 10 THEN 3 

IF A$(N) - "X" THEN A$(N) = "O" s GOTO 410 
A$(N) = "X" 

IF M = N THEN 300 
GOTO 410 

IF A$ ( N) = "O" THEN 390 
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11 ) : IF N < 1 OR N > 10 THEN 3 


360 A$(N) = "0" 

370 N = INT (RND (1) * 

70 

380 IF A$(N) = "X" THEN A$(N) = "O": GOTO 410 
390 A$(N) = "X" 

400 IF M = N THEN 370 
410 C = C + 1 

420 FOR X = 1 TO 10: IF A$(X) < > "O" THEN 210 

430 NEXT 

440 FOR X = 1 TO 300 :NEXT 

450 GOSUB 530 : VTAB 9 : HTAB IsCALL - 868:HTAB 10:GOSU 
B 550 

460 VTAB 20 : HTAB IsCALL - 868 

470 IF C < 13 THEN PRINT "VERY GOOD. YOU GUESSED IT 
IN ONLY " ;C:PRINT "GUESSES 111": GOTO 490 
480 PRINT "GOOD TRY... BUT YOU COULD DO BETTER. ": PRIN 
T "IT TOOK YOU ";C;" GUESSES THIS TIME." 

490 PRINT : PRINT "TRY AGAIN (Y/N) : "? 

500 GET CH$ : IF CH$ < > "Y" AND CH$ < > "N" THEN 50 

0 

510 IF CH$ = "Y" THEN HOME :C = 0: GOTO 190 
520 HOME : VTAB 8 : HTAB 10:PRINT "THANX FOR THE GAME l 
1 " :VTAB 1 : HTAB 1 sPRINT "RUN MENU" 

530 Z$ = " " : FOR X = 1 TO 10:Z$ = Z$ + A$(X) + " ":NE 
XT : RETURN 

540 POKE 36,20 - LEN (Z$) / 2 

550 FOR X = 1 TO LEN (Z$) sPRINT MID$ (Z$,X,1);:IF MI 

DS (Z$,X,1) < > " " THEN POKE 0 , RND (1) * 80 + 

50: POKE 1,20: CALL 768 
560 NEXT : PRINT : RETURN 
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2. Mastermind 


Most people are familiar with the game of Mastermind, right 9 Well 

this version has a new “twist,” because that is what you do! You twist the 

game paddle (paddle “0”) to change the colors and use the paddle button 

to lock in” the color of your choice. Joysticks can be used instead of 
game paddles. 

This game illustrates the use of low-resolution graphics and game 
paddles or joysticks. No text is displayed. When you finish guessing the 
color and position of a row of squares, the result is displayed with colored 
dots (see game rule #5) instead of a message. Thus, this game is well- 
smted for small children who have not learned to read. However, it is also 
a refreshing change of pace for older children and adults. 

Mastermind is designed to be used with a color display. If you have a 
monochrome monitor, it is difficult, although not impossible, to play. The 
colors of the squares and the results will appear as different patterns 
instead of different colors (see the Game Rules). The type of patterns 
displayed depends on the type of monitor you have. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 2. If you are 
not using the menu, run the program. 

2. The directions will be displayed. 

3. Turn the game paddles or move the joystick controller until the desired 
color is displayed at the blinking rectangle. 


4. Press the button on the game paddle or joystick. The next position will 

begin blinking, or, if you have completed a row, the results will be 
displayed. 


5. For every square where you guessed the correct color, but the wrong 
position, a turquoise dot is displayed. If you guessed the correct color 
and the correct position, a pink dot is displayed. 

6. When you have guessed the colors for the first row, try again on the next 


7. To end the game at any time, press <ESC>. 
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8 . You win when you have matched the position and color of every square 
in the row. 

9. When completed, the program returns to the Main Menu. 


Programming Notes 


10-95 

100-110 

120-140 

150-210 

220-240 

250-260 

270-290 

300-350 

360-510 

520-570 

580 


Instructions 

Game initialization 

Display input line and get your input 

Check for correct input 

Display results 

Check for winner and loop if no winner yet 
End the game 
Display input line 

Get input from paddles or <ESC> to end game 
Randomly select the game elements 
Blank out graphics line (the row of squares) 

Mastermind. 


10 

20 

30 

40 

50 


60 


70 

80 


90 


95 

100 

110 

120 

130 

140 

150 

160 

170 


REM MASTERMIND 

SPEED= 100 

HOME : PRINT TAB ( 1 5 ); "MASTERMIND" : PRINT 

PRINT "THE OBJECT OF MASTERMIND IS TO GUESS THEC 

ORRECT COLOR COMBINATION OF FOUR" 

PRINT "SQUARES. THE COMPUTER WILL ALLOW YOU TOC 
HANGE THE COLOR OF EACH POSITION BY USEOF THE GA 
ME PADDLES. WHEN THE COLOR YOUWISH APPEARS, PRE 
SS THE PADDLE BUTTON," 

PRINT "AND YOU CAN CHANGE THE NEXT SQUARE .": PRIN 
T "WHEN ALL FOUR SQUARES ARE COMPLETED PRINT " 
YOU WILL SEE HOW MANY SQUARES WERE THE" 

PRINT "RIGHT COLOR, AND IF THEY WERE IN T1IE":PRI 
NT "RIGHT POSITION. " SPRINT 

PRINT "FOR EVERY ONE THAT WAS A CORRECT COLOR,": 
PRINT "BUT IN THE WRONG POSITION, YOU WILL SEE": 
PRINT "A SMALL TURQUOISE DOT, AND FOR EVERY" 
PRINT "ONE THAT WAS THE CORRECT COLOR AND ALSO": 
PRINT "IN THE CORRECT POSITION, YOU WILL SEE A": 
PRINT "SMALL PINK DOT." 

PRINT :PRINT "PRESSING <ESC> AT ANY TIME ENDS TH 
E" SPRINT "GAME." 

GOSUB 520 s SPEED= 255 :HOME 
Q = - 4 s T = 0 s GR 

Q = Q + 5:IF Q > 37 THEN Q = 1 
H = 0 : T = T + 1 

GOSUB 580 s GOSUB 300:GOSUB 360 
RW = 0 s RR = 0 

FOR X = 1 TO 4:F(X) = 0 

IF G ( X) = M(X) THEN RR = RR + lsF(X) = 1 
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180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

362 

364 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


NEXT 

FOR X = 1 TO 4: FOR Y = 1 TO 4 

IF G(Y) = M(X) AND Y < > X AND F(X) = 0 THEN RW 
= RW + 1 :F(X) = 1 
NEXT : NEXT 
H = 17 


IF RW > 0 THEN COLOR= 14:FOR X = 1 TO RW:H = H + 
3: PLOT H,QsNEXT 

IF RR > 0 THEN COLOR= llsFOR X = 1 TO RR:H = H + 
3 s PLOT H , Q s NEXT 
IF RR < 4 THEN 120 

PRINT "CONGRATULATIONS, YOU DID IT IN ";T:PRINT 
"TURNS 1 " :PRINT 

VTAB 2 3 : PRINT "PRESS <RETURN> TO CONTINUE..."; 
GET CH$ : IF CH$ < > CHR$ (13) THEN 280 

TEXT sHOME sPRINT sPRINT CHR$ (4) "RUN MENU" 
COLOR= 10 


HLIN 0,3 AT QsHLIN 0,3AT Q + 1 

HLIN 5 , 8AT QsHLIN 5 , 8AT Q + 1 

HLIN 10 , 13AT QsHLIN 10,13AT Q + 1 

HLIN 15 , 18 AT QsHLIN 15,18AT Q + 1 

RETURN 

FOR X = 1 TO 4 sG (X) = 0 

CH = PEEK ( - 16384) s IF CH < 128 THEN 370 

POKE - 16368, 0sIF CH = 155 THEN POP s GOTO 270 
COLOR= 0 

HLIN H, H + 3 AT QsHLIN H,H + 3 AT Q + 1 
FOR Z = 1 TO 100s NEXT 
C = INT ( PDL (0) / 17) 

IF C < 1 THEN C = 1 

IF C > 3 AND C < 7 THEN C = 4 

IF C < 11 AND C > 6 THEN C = 9 

IF C > 10 AND C < 14 THEN C = 13 

IF C > 13 THEN C = 15 

COLOR= C 

HLIN H, H + 3 AT QsHLIN H,H + 3 AT Q + 1 
FOR Z = 1 TO 100s NEXT 

IF PEEK ( - 16287) < 128 THEN 362 
G (X) = C 

H = H + 5s NEXT Xs RETURN 
FOR X = 1 TO 4 s M(X) = 0 

M = INT ( RND (2) * 15)sIF M > 13 THEN 530 

IF M = 0 OR (M > 4 AND M < 9 ) OR ( M > 9 AND M < 
13) THEN 530 

FOR Y = 1 TO XsIF M = M( Y) THEN 530 
NEXT Y 

M (X ) = M s NEXT XsRETURN 

COLOR= 0s HLIN 0,30AT QsHLIN 0,30AT Q + 1 s RETURN 
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3. Towers 


You’ve heard of the famous Leaning Tower of Pisa? That’s good, even 
though it has nothing to do with this game. 

The proper name for this game is The Towers cf Hanoi. It begins with 
several disks of different sizes, located on the leftmost of three towers. 
The object of the game is to move all the disks to tower three, the 
rightmost tower, in as few moves as possible. However, you can only move 
one disk at a time and you cannot place a larger disk on a smaller one. Try 
playing with two disks and then progress to three. 

If you take too many moves, you lose the game. Besides that, you may 
not get invited back to Hanoi. 

This game demonstrates screen control techniques. The needles and 
disks appear to remain static, while the comments and prompts scroll on 
the bottom portion of the screen. This is done using the Apple window- 
control memory locations, and can be examined in the display routine in 
lines 500 through 530. 

Game Rules 

1. If you are selecting the game from the Main Menu, choose 3. If you 
are not using the menu, run the program. 

2. The directions will be displayed. 

3. Choose the number of disks to use in the game. You may select one 
through seven disks. 

4. Press <RETURN> to begin. 

5. Select a disk to move. Disks are represented with 3,5,7, 9, 11, 13, or 
15 asterisks (*). 

6. You can only move the top disk on a tower (needle). 

7. Select which tower (needle) to move the disk to. Needles are spec- 
ified by 1, 2, and 3, 1 is the leftmost needle. 

You cannot place a large disk on a smaller one. 

Try to get all the disks to needle 3, the rightmost one, in as few moves 
as possible. 

10- When completed, you can play again or exit to the Main Menu. 


23 


Programming Notes 


10-60 

70-90 

100-150 

160-170 

180-200 

210-300 

310-400 

410 

420 

430-440 

450 

460-490 

500-530 

540 


Initialization and instructions 

Determine number of disks to use by prompting player 

Additional instructions 

Prompt for < RETURN > to be pressed 

Game initialization 

Determine disk to move and check if valid move 
Determine needle to move to and check if valid move 
Refresh screen (by redrawing the display) 

Increment move counter and stop if too many moves 

Check if winner, loop if none yet 

Print game move results 

Prompt for new game or exit to Main Menu 

Display needles and disks on screen 

Exit game 


Towers. 


10 

20 

30 

40 

50 


60 

70 

80 

90 

100 

110 

120 


130 


140 

150 

160 

170 

180 

190 

200 


REM TOWERS 

DIM F ( 3 , 7 ) 

FOR Q = 1 TO 3: FOR R = 1 TO 7:F(Q,R) = 0:NEXT :H 
OME : PRINT : PRINT 

PRINT TAB ( 9 ) ; "TOWERS OF HANOI PUZZLE" : PRINT 
PRINT "YOU MUST TRANSFER THE DISKS FROM THE L 
EFT TO THE RIGHT TOWER, ONE AT A TIME," 

PRINT "NEVER PUTTING A LARGER DISK ON A": PRINT " 
SMALLER ONE . " : PRINT 

PRINT "HOW MANY DISKS (MAXIMUM OF 7): 

GET S$:S = VAL (S$):IF S < 1 OR S > 7 THEN 80 
PRINT S :PRINT sPRINT :M = 0 

HOME sPRINT "IN THIS GAME, WE WILL REFER TO DISK 
S BY" sPRINT "A NUMERICAL CODE. "sPRINT 
PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 T 
HE NEXT SIZE, 7 THE NEXT, AND SO ON, " 

PRINT "UP TO 15. YOU CAN IDENTIFY A DISK BY"sPR 
INT THE NUMBER OF ASTERISKS WITH WHICH IT"sPRIN 
T "IS MADE. "sPRINT 

PRINT THE NEEDLES ARE NUMBERED FROM LEFT TO"sPR 
INT^ RIGHT, 1 TO 3. WE WILL START WITH THE"sPRI 
NT "DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE"-PRIN 
T "THEM TO NEEDLE 3." 

PRINT sPRINT "GOOD LUCK M i 1" s PRINT 
PRINT 

PRINT "PRESS < RETURN > TO BEGIN..."; 

GET A$;IF A$ < > CHR$ (13) THEN 170 

HOME 

Y = 7 s FOR Q = S TO 1 STEP - lsF(l,Y) = Q*2 + 
1:Y = Y - 1 s NEXT 
GOSUB 500 
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210 

220 

230 

235 

240 

250 

260 

270 

280 

290 


300 


310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


430 

440 

450 

460 

470 

480 

490 

500 

510 

520 


530 

540 


PRINT "WHICH DISK WOULD YOU LIKE TO MOVE- "• 

D = 0 * 

GET S$:IF S$ = CHR$ (8) THEN PRINT : GOTO 210 
D = D * 10 + VAL (S$):IF VAL (S$) = 0 THEN 230 
IF D = 1 THEN PRINT D; s GOTO 230 
PRINT VAL ( S$ ) 

IF ( ( D 1) / 2) > 0 AND ( ( D - 1 ) / 2) < =STH 
EN 290 

PRINT "YOU MAY ONLY TYPE ";:FOR J = 1 TO S :PRINT 
J * 2 + 1 ; s IF J < >S THEN PRINT " , " ; 

NEXT : PRINT : GOTO 210 

FOR Q = 1 TO 3 : FOR R = 1 TO 7:IF F (Q, R) < > D T 

HEN NEXT :NEXT :PRINT "SORRY, BUT THAT DISK IS N 
OT BEING USED IN THIS GAME.": GOTO 210 
IF F(Q,R - l) > 0 THEN PRINT "THAT DISK IS BELOW 
ANOTHER ONE. MAKE": PRINT "ANOTHER CHOICE.": GO 
TO 210 

PRINT "PLACE DISK ON WHICH NEEDLE (1-3): 

GET S$:N = VAL ( S$ ) : IF N < 1 OR N > 3 THEN 320 
PRINT N 

FOR Q = 1 TO 7: IF F(N,Q) = 0 THEN NEXT : GOTO 36 
0 

IF D > = F ( N, Q ) THEN PRINT "SORRY, BUT YOU CAN' 

T MAKE THAT MOVE!": GOTO 210 

FOR U = 1 TO 7: IF F(N,U) = 0 THEN NEXT U 
U = U - 1 

FOR Q = 1 TO 3 : IF Q = N THEN 400 

IF F(Q,R) = D THEN F(N,U) = F(Q, R) :F(Q, R) = 0:Q 

= 3 

NEXT Q 
GOSUB 500 

M= M + 1 : IF M > 128 THEN PRINT "SORRY, BUT I HA 
VE ORDERS TO STOP IF YOU MAKE MORE THAN 128 MOVE 
S.": GOTO 540 

FOR Q = 1 TO 2: FOR R = 1 TO 7:IF F(Q,R) < >0T 

HEN 210 

NEXT :NEXT 

POKE 34,0: HOME : VTAB 8: PRINT "YOU HAVE PERFORMED 
THE TASK IN ";M;" MOVES" :PRINT 
PRINT "WOULD YOU LIKE ANOTHER GAME (Y/N) : "; 

GET A$ : IF A$ < > "Y" AND A$ < > "N" THE^ 470 

PRINT A$ : IF A$ = "N" THEN 540 
CLEAR : GOTO 30 

POKE 34,0: POKE 35, 22: VTAB 1 : HTAB 1 
FOR Q = 1 TO 3:Z = Q * 10: FOR R = 1 TO 7: VTAB (Q 

- 1) * 7 + R:HTAB 1:CALL - 868 

HTAB (Z - INT (F(Q,R) / 2)):FOR Y = 1 TO F ( Q, R) : 

PRINT " * " ; : NEXT : IF R = 7 THEN HTAB Z:INVERSE :P 

RINT Q;: NORMAL 

NEXT :NEXT :POKE 35,24:POKE 34,21:VTAB 24 : HTAB 1 
: RETURN 

TEXT : PRINT : PRINT CHR$ (4) "RUN MENU" 
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4. Sherlock’s Home 


Elementary, my dear Watson! In this game, you’re the master detec- 
tive, and you have to discover “who dunnit” before he does you in. 

Sherlock’s Home uses one- and two-word commands, similar to many 
adventure or fantasy games. 

Each time you are called in on a new case, there is a different victim. 

But the suspects remain the same. Not surprising to a trained detective 
like yourself, is it? 

The only fact the police have turned up is that the suspect resides in 
Sherlock s home. But you have a few hunches yourself, and one of them 
may prove to be correct he’s out to get you too. You can move from 
room to room, pick up weapons, and make announcements as to who you 
think committed the dire deed. If any of your guesses (as to the suspect, 
room, or weapon) are wrong, you get the reason why, but nothing else! 

And time isn t on your side each step you take brings your nemesis 
closer and closer. 


Game Rules 

1. If you are selecting the game from the Main Menu, choose 4. If you 
are not using the menu, run the program. 

2. The instructions will be displayed. 

3 . Move from room to room to determine who committed the crime and 
how it was done. 

4. When proposing a solution, you must be in the room where you think 
the crime was committed. 

5. You must be holding the correct weapon to win. 

6. You must deduce who committed the crime, where it happened, and 
what weapon was used. 

7. You can move from room to room by typing GO followed by the 
name of the room. The rooms are: 

LIVING ROOM DEN DINING ROOM 

STUDY KITCHEN WATERCLOSET 

BEDROOM ATTIC GUEST ROOM 

BASEMENT 
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8. If a weapon is in the room, you can pick it up by typing TAKE 
followed by its name, but you can carry only one. Possible weapons 
are: 


GUN ROPE CANDLESTICK 

KNIFE POISON WRENCH 

9. To drop a weapon, type DROP followed by its name. 

10. The suspects and their occupations are: 


MR. MISER Millionaire 

MRS. SIPPY Housewife 

CISSI SIPPY Housewife’s daughter 

COL. KENTUCKY Restaurant magnate 

OLIVE PITTS Fruit grower 

HEAVES Family butler 

SPOT Family dog 

11. If you think you have solved the case, make an announcement by 
entering an asterisk (*) as your command. 

12. The game ends when you get the criminal or he gets you. 

13. Upon completion, you can play again or exit to the Main Menu. 


Programming Notes 


10-290 

300-690 

700-715 

720-830 

840-930 


940-960 

970-980 

990-1320 


Initialization 
Display instructions 

Prompt for displaying the instructions again 

Game initialization 

Main program loop 

870 Prompt for command 

880 Check detective’s announcement 

890 Check command to go to another room 

900 Check command to take a weapon 

910 Check command to drop a weapon 

You’re too late, you’ve been done in 

Announce “who dunnit” 

Routine for detective’s announcement 

990 Check for no weapon in hand 

1000-1070 Display announcement screen 
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1330-1460 


1470-1640 


1650-1740 


1760-1770 

1780-1800 

1810-1890 

1900-1920 


1080-1090 

1110-1130 

1140 

1150-1180 

1190-1200 

1210-1220 

1230-1240 

1250-1280 

1290-1320 


Get your guess of who dunnit 
Check theory in order of room, 
weapon, and person 
You solved it! 

Play again or exit to the Main Menu 

Sorry, wrong room 

Sorry, wrong weapon 

Sorry, wrong person 

Check theory in order of weapon, 

person, room 

Check theory in order of person, 


room, weapon 
Routine for going to a room 
1330-1390 Check for valid room 

1400 In that room already 

1410-1440 Special routine for watercloset 

1450-1460 Change room 

Routine for taking a weapon 


1470-1520 

1530 

1540-1560 

1570 

1580-1640 


Check for valid weapon 
Valid weapon, but not in room 
Check for weapon in room 
Weapon not in room 
Transfer weapon from in the room to 
in the detective’s possession 
Routine for dropping a weapon 


1660 
1670-1710 
1720 

1730-1740 


Sorry, not carrying anything to drop 
Check for valid weapon 
Not carrying that weapon 
Transfer weapon from in the detec- 
tive’s possession to in the room 
Get random number between 1 and 10 
Press < RETURN > to continue 
Display information (room, weapons visible, etc.) 
End program 


Sherlock’s Home. 

5 REM SHERLOCK'S HOME 

10 DATA FRED, JOHN, CARL, Z EKE, ARCHIBALD , FRANC I NE , AG AT 

Ii A , WI LL I AM , MO RT I ME R , F ANNY 

20 DATA SMITH, ABERCROMBIE, HARKENFARKER, SNERD, WHOS IT 

S, SPITZINPOT, PEEZINPEPPER, BELEAKE, GYTOPE, PEON 
30 DATA LIVING ROOM, DEN, DINING ROOM, STUDY, KITCHEN, W 

ATERCLOSET , BEDROOM , ATT I C , GUEST ROOM , BASEMENT 
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40 DATA GUN.WRENCH, ROPE, CANDLESTICK, KNIFE, POISON 

50 DATA MR. MISER, MRS. SIPPY,CISSI SIPPY.COL. KENTU 

CKY, OLIVE PITTS, HEAVES, SPOT 

60 FOR X = 1 TO 10: READ F$(X):NEXT :FOR X = 1 TO 10 

••READ L$ (X) :NEXT 

70 FOR X = 1 TO 10 : READ P$(X):NEXT :FOR X = 1 TO 6 : 

READ W?(X):NEXT :FOR X = 1 TO 7 : READ S$(X):NEXT 
80 GOSUB 1760 :N$ = F$(R):F$ = N$:GOSUB 1760:N$ = N$ 

+ " " + L?(R) 

90 DIM R( 10 , 6 ) 

100 V$(l) = "O.K. EVERYONE IS HERE WHAT'S THE BIG 

ANNOUNCEMENT 7" 

110 V$(2) = “LAY IT ON US, OH EXALTED DETECTIVE 

II 

120 V$ ( 3 ) = “THINK YOU GOT THE ANSWER ? WE'LL SEE.. 

II 

130 V$(4) = "I HOPE YOU ARE NOT WASTING OUR TIME.... 

II 

140 V$ ( 5 ) = "OH, NO NOT ANOTHER THEORY 


150 

160 

170 

180 

190 


200 

210 

220 

230 

240 

250 

260 

270 

230 

290 

300 

310 


320 


330 


340 


V$ ( 6 ) = "THE KILLER IS GETTING CLOSER I HOPE 

YOU HAVE THE ANSWER " 

V$ ( 7 ) = "SOMEONE IN THIS ROOM MAY KILL YOU IF YO 
UDON'T HAVE THE CORRECT ANSWER..." 

V$ ( 8 ) = "TIME IS RUNNING OUT DO YOU HAVE THE 

ANSWER ?" 

V$ ( 9 ) = "GETTING CLOSE, HUH ? COULD BE DANGEROU 
SAROUND HERE SOON ..." 

V$ ( 10 ) = "THE SURGEON GENERAL HAS WARNED THAT TO 
O MANY THEORIES WITH THE KILLER NEARBY COULD 
BE HAZARDOUS TO YOUR HEALTH." 

X$(l) = "NOT QUITE. . . " 

X$ ( 2 ) = "WRONG AGAIN ..." 

X$ ( 3 ) = "ARE YOU KIDDING ?" 

X$ ( 4 ) = "WRONGO 1" 

X$(5) = "SINCE WHEN ?" 

X$(6) = "THINK AGAIN..." 

X$ ( 7 ) = "GOOD TRY, BUT..." 

X$ ( 8 ) = "THINK SO, HUH ?" 

X$ ( 9 ) = "I DOUBT IT..." 

X$(10) = "BAD JUDGEMENT..." 

HOME :PRINT TAB( 7); "WELCOME TO SHERLOCK'S HOME" 
SPRINT 

PRINT " THE OBJECT OF THE GAME IS TO GUESS" sPRI 
NT CHR$ (34); "WHO DUNNIT" ? CHR$ (34);". THE COMP 
UTER WILL CHOOSE" 

PRINT "THE KILLER, WHERE THE CRIME WAS" sPRINT "C 
OMMITTED, AND THE MURDER WEAPON ." s PRINT "BECAUSE 
THE LOCAL POLICE ARE COMPLETELY" s PRINT "BAFFLED 
BY THIS COMPUTER-ASSISTED" 

PRINT "CRIME, YOU, AS THE WORLD'S FOREMOST" s PRIN 
T "AUTHORITY ON COMPUTER CRIME (WHAT WE IN"sPRIN 
T "THE TRADE REFER TO AS 'C.C.'), HAVE" 

PRINT "BEEN CALLED IN TO DISCOVER THE ANSWER. " 
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350 


360 

370 

380 

390 

400 

410 

420 


430 

440 

450 


460 

470 

480 

490 


500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 


620 


630 


PRINT : PRINT " THE ONLY ESTABLISHED FACT IS THA 
T THE CRIME TOOK PLACE SOMEWHERE IN AN OLD DE 
SERTED MANSION KNOWN ONLY AS ";CHR$ (34);"SHER- M 

PRINT "LOCK'S HOME " ; CHR$ (34);" (ONCE OWNED BY T 
HE LATE" 

PRINT "JOHN SPENCER SHERLOCK III, RICH AND F 

AMOUS MYSTERY AUTHOR) . " 

GOSUB 1780 

Q$ = " THE "sIF LEN (N$) + 19 > 39 THEN 420 
Ql$ = Q$ + "POOR "sIF LEN (N$) + 22 > 39 THEN Q$ 
= Ql$: GOTO 420 
Q$ = Q$ + "HAPLESS " 

PRINT Q$; "VICTIM, " ; N$ ; " , " : PRINT "REFUSES TO ANS 
WER ANY OF THE QUESTIONS POSED BY THE POLICE, S 
O YOU HAVE NOTHINGMORE TO GO ON EXCEPT YOUR WIT, 
COURAGE , " 

PRINT "AND CUNNING ." :PRINT sPRINT " THE ROOMS I 
N THE HOUSE ARE AS FOLLOWS:" 

FOR X = 1 TO 9 STEP 2:PRINT P$(X);TAB( 20);P$(X 
+ l)sNEXT 

PRINT sPRINT " YOU MAY ENTER ANY ROOM IN THE HO 
USE" sPRINT "BY TYPING 'GO 1 AND THEN THE NAME OF 
"sPRINT "THE ROOM." 

GOSUB 1780 

PRINT " THE MURDER WEAPONS ARE:" 

PRINT : FOR X = 1 TO 5 STEP 2 sPRINT W$(X);TAB( 20 
) ;W$(X + 1) sNEXT 

PRINT sPRINT " THESE ITEMS LAY SCATTERED THROUG 
HOUT THE HOUSE. THE POSSIBLE SUSPECTS (AND TH 
EIR OCCUPATIONS) ARE: "sPRINT 
PRINT "MR. MISER" ; TAB ( 20 ); "MILLIONAIRE" 

PRINT "MRS. SIPPY";TAB( 20 ); "HOUSEWIFE " 

PRINT "CISSI SIPPY" ; TAB ( 20 )? "HOUSEWIFE ' S DAUGHT 
ER" 

PRINT "COL. KENTUCKY"; TAB ( 20 ); "RESTAURANT MAGNA 
TE" 

PRINT "OLIVE PITTS " ; TAB ( 20); "FRUIT GROWER" 

PRINT "HEAVES" ;TAB( 20); "FAMILY BUTLER" 

PRINT "SPOT " ; TAB( 20); "FAMILY DOG" 

PRINT sPRINT " ALL OF THE ABOVE HAD A MOTIVE TO 
KILL" 

PRINT N$ ; " . " 

GOSUB 1780 

PRINT " YOUR JOB IS TO GO FROM ROOM TO ROOM A 
ND DECIDE WHO KILLED POOR ";F$;"." 

PRINT sPRINT " WHEN YOU WISH TO VENTURE A GUESS 
AS TOWHO DID IT, ENTER AS YOUR COMMAND. EV 

ERYONE WILL THEN COME TO THE ROOM YOU ARE IN FOR 
THE BRILLIANT ANNOUNCEMENT." 

PRINT sPRINT " SOME OF THE COMPLICATIONS ARE TH 
AT YOUMUST ANNOUNCE YOUR THEORY IN THE ROOM YO 
U THINK THE MURDER HAPPENED IN. FOR" 

PRINT "EXAMPLE, IF YOU THINK THE MURDER TOOK P 
LACE IN THE DEN, YOU MUST ANNOUNCE IT IN THE DE 
N. ALSO, YOU MUST BE CARRYING THE MURDER WEAPON 
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YOU THINK WAS USED TO DO THE DIRTY DEED." 

640 PRINT SPRINT " YOU MAY PICK UP WEAPONS AND MOVE 
THEM FROM ROOM TO ROOM BY TYPING 'TAKE ' AND TH 
E NAME OF THE WEAPON. FOR EXAMPLE, TOPICK UP TH 
E GUN, THE COMMAND WOULD BE 'TAKE GUN'." 

650 GOSUB 1780 

660 PRINT " YOU CAN ONLY CARRY ONE WEAPON AT A T 

IME. YOU CAN DROP ANY WEAPON WITH THE COMMAND ' 
DROP ' AND THE NAME OF THE WEAPON." 

670 PRINT 

680 PRINT “ AS A FINAL NOTE, THE KILLER HAS AN A 

VERSION TO GETTING CAUGHT. AS TIME GOES ON, 
YOU MAY GET KILLED BY THE KILLER, SO TRY TO 

DISCOVER WHO DID THE DASTARDLY DEED BEFORE YOU 
BECOME THE NEXT VICTIM." 

690 PRINT SPRINT " BY THE WAY, EVERY GOOD DETECTIVE 
HAS A LITTLE NOTEBOOK HE CARRIES AROUND WITHHI 
M. IT MIGHT BE A GOOD IDEA IF YOU DID TOO." 
700 VTAB 23 SPRINT "REVIEW THE INSTRUCTIONS AGAIN (Y/ 

N)s “ ; 

710 GET CH? s IF CH$ < > "Y“ AND CH$ < > "N" THEN 71 

0 

715 IF CH$ = “Y" THEN 300 
720 GOSUB 1760 sC( 1 ) = R 

730 GOSUB 1760 s IF R > 6 THEN 730 

740 C( 2 ) = R 

750 GOSUB 1760 s IF R > 7 THEN 750 

760 C ( 3 ) = RsUL = 50 sGOSUB 1760sP(l) = RsP(2) = 0sGO 

SUB 1760 sUL = UL - R 

770 FOR X = 1 TO 10 s R(X, 0) = 0sF(X) = 0sNEXT 

780 FOR X = 1 TO 6 

790 GOSUB 1760 s IF R > 6 THEN 790 

800 IF F(R) = 1 THEN 790 

810 T = RsF(R) = 1 

820 GOSUB 1760 sR(R,R(R,0) + 1) = TsR(R,0) = R(R,0) + 
1 

830 NEXT sHOME sPOKE 37,10 

840 FOR Z = 1 TO UL 

850 GOSUB 1810 

860 PRINT 

870 INPUT "COMMAND ? ";I? 

880 IF 1$ = THEN GOSUB 990s GOTO 930 

890 if LEFT? (15,2) = "GO" THEN GOSUB 1330s GOTO 930 


900 

910 

920 

930 

940 

950 

960 


IF LEFT? (I?, 4) = "TAKE" THEN GOSUB 1470s GOTO 9 
30 

IF LEFT? (I?, 4) = "DROP” THEN GOSUB 1650s GOTO 9 
30 

PRINT SPRINT "SORRY, SIR, BUT I DON'T UNDERSTAND 
WHAT YOU MEAN BY ";I? 

NEXT 

TEXT sHOME sPRINT "SORRY TO REPORT,. SIR, THAT YO 
U HAVE JOINED ";N?; M IN THAT" 

PRINT "GREAT PRECINCT HOUSE IN THE SKY. "sPRINT 
PRINT "CHALK UP ANOTHER MURDER TO ";S?(C(3));".“ 
sPRINT 


31 


1 


970 


980 

990 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1085 

1090 

1100 

1110 

1120 

1130 

1140 


1150 

1160 

1165 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 


THE MURDER WEAPON WAS THE" : PR 
IT WAS DONE IN THE" SPRINT P$( 


YOU 

THE 


10 


AREN'T 
RULES , 


CA 

SI 


PRINT "BY THE WAY, 

INT W$ ( C ( 2 ) ) ; " AND 
C ( 1 ) ) ; " . " 

PRINT s GOTO 1900 

IF P ( 2 ) = 0 THEN PRINT "SORRY, BUT 

RRYING A MURDER WEAPON REMEMBER 

R i" :PRINT s RETURN 
TEXT :HOME 

Q1 — 5 : IF Z > (Z / 3) * 2 THEN Q1 = 

GOSUB 1760: IF R > Q1 THEN 1020 
PRINT V$(R) sPRINT 

PRINT "ACCORDING TO YOU, THE MURDER OF POOR":PRI 
NT N$?" WAS DONE IN THE" 

PRINT P$(P(1));" WITH THE " ; W$ ( P ( 2 ) ) ? " . " 

PRINT SPRINT "NOW, THE QUESTION IS 'WHO DID IT' 
?" SPRINT 

FOR X = 1 TO 7 SPRINT X;") ";S$(X):NEXT sPRINT 
PRINT "WHAT IS THE CULPRIT'S NUMBER (1-7) s 
GET n I$:I = VAL ( 1$ ) s IF I < 1 OR I > 7 THEN 1085 
PRINT : GOSUB 1760 s IF R > 3 THEN 1090 
ON R GOTO 1110,1250,1290 
PRINT : IF C ( 1 ) < > P ( 1 ) THEN 1190 

IF C ( 2 ) < > P ( 2 ) THEN 1210 

IF C ( 3 ) < > I THEN 1230 

PRINT sPRINT "CONGRATULATIONS, SIR.. 

THE CASE (PERSONALLY, SIR, I NEVER 
UR VERACITY FOR A MINUTE.)." 

PRINT sPRINT "WOULD YOU LIKE ANOTHER 
OR ARE YOU DUE FOR A VACATION (A/V) . 

GET 1$ s IF 1$ < > "A" AND 1$ < > "V" THEN 

PRINT 1$ 

IF 1$ = "V" THEN TEXT sHOME sPRINT "HAVE A GOOD 
VACATION, SIR.... HURRY BACK SOON l": GOTO 1920 
POP s GOTO 300 

PRINT s GOSUB 1760 sPRINT X$(R) 

PRINT "THE " ; P $ ( P ( 1 ) ) ; " WAS NOT THE CORRECT" :PRI 
NT " ROOM 1 " s P RI NT s RETU RN 
PRINT s GOSUB 1760:PRINT X$(R) 

PRINT W$ ( P ( 2 ) ) ; " IS THE WRONG WEAPON, SIR l"sP 
RINT : RETURN 

PRINT : GOSUB 1760 sPRINT X$(R) 

A PERFECT ALIBI, " sPRINT "SIR i 


.YOU SOLVED 
DOUBTED YO 


ASSIGNMENT, 

H _ 


1160 


PRINT S$ ( I ) ; " HAS 
PRINT : RETURN 


IF C( 2 ) < > 

IF C( 3 ) < > 

IF C(l) < > 

GOTO 1140 
IF C ( 3 ) < > 

IF C(l) < > 

IF C(2) < > 

GOTO 1140 

IF LEN (1$) < 4 THEN 1380 
FOR X = 1 TO 10 
IF RIGHT? ( I $ , LEN (I?) - 2) 
IF RIGHT? (I?, LEN (I?) - 3) 


P ( 2 ) THEN 1210 
I THEN 1230 
P(l) THEN 1190 

I THEN 1230 
P(l) THEN 1190 
P ( 2 ) THEN 1210 


= P?(X) 
= P$(X) 


THEN 

THEN 


1400 

1400 
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1370 

1380 

1390 

1400 


1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 


1540 

1550 

1560 

1570 

1580 

1590 

1600 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 


1730 

1740 

1760 

1770 

1780 

1790 

1800 


NEXT 

PRINT : PRINT "SORRY, I CANNOT GO THERE, SIR. IT 
DOES NOT SEEM TO BE IN SHERLOCK'S HOME l" 

PRINT : RETURN 

IF X = P(l) THEN POP : PRINT : PRINT "SIR, WE SEEM 

TO BE IN THE " ; P$ (X) : PRINT "ALREADY l": GOTO 
860 

IF X < >6 THEN 1450 

GOSUB 1760: IF R > 4 THEN 1450 

PRINT SPRINT "SORRY, THE ";P$(6)? M IS IN USE AT" 

:PRINT "THIS TIME. TRY AGAIN LATER " 

RETURN 
P(l) = X 
RETURN 

IF LEN (1$) <6 THEN 1520 
FOR X = 1 TO 6 

IF RIGHT$ ( 1$ , LEN (l$) - 4) = W$(X) THEN 1530 

IF RIGHT$ ( I $ , LEN (l$) - 5) = W$(X) THEN 1530 
NEXT 

PRINT SPRINT "SORRY, SIR, I DON'T THINK THAT WEA 
PON ISIN THIS CASE 1 " s RETURN 

IF R( P ( 1 ) ,0) = 0 THEN PRINT SPRINT "SORRY, SIR, 
BUT THERE SEEMS TO BE NO WEAPONS IN THIS ROOM 

PERHAPS SOME- WHERE ELSE ? " : RETURN 

FOR Y = 1 TO R(P(1) ,0) 

IF R( P ( 1 ) ,Y) = X THEN 1580 
NEXT 


PRINT SPRINT "SORRY, SIR, BUT I DON'T SEE THAT W 

EAPON IN THIS ROOM 1 " s RETURN 

T = P(2):P(2) = R(P(1),Y)sR(P(1),Y) = T 

IF T > 0 THEN RETURN 

R(P( 1 ) , Y) = R(P(1) ,R(p(l) ,0) ) 

R( P ( 1 ) , 0) = R( P ( 1 ) ,0) - 1 
RETURN 

IF LEN (1$) < 6 THEN 1710 

IF P ( 2 ) = 0 THEN PRINT sPRINT "SORRY, BUT I AM N 
OT CARRYING ANYTHING, SIR i " : RETURN 
FOR X = 1 TO 6 

IF RIGHT $ ( 1$ , LEN (l$) - 4) = W$(X) THEN 1720 

IF RIGHTS ( 1$ , LEN (l$) - 5) = W$(X) THEN 1720 
NEXT 

PRINT sPRINT "SORRY, SIR, I DON'T THINK THAT WEA 
PON ISIN THIS CASE 1 " s RETURN 

IF X < > P ( 2 ) THEN PRINT sPRINT "SORRY, SIR, BU 

T I AM NOT CARRYING THAT WEAPON i" sPRINT : RET 
URN 


R(P(1) ,0) = R( P ( 1 ) ,0) + 

2) s P ( 2 ) = 0 

RETURN 


lsR(P(l) ,R(P(1) ,0) ) 



R - INT ( RND (1) * ll)s IF R < 1 OR R > 10 THEN 1 
760 


RETURN 


VTAB 23 sPRINT "PRESS <RETURN> TO CONTINUE..."? 
GET CH$ s IF CH$ < > CHR$ (13) THEN 1790 

PRINT sHOME s RETURN 
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1810 POKE 34,0: CP = PEEK (37):VTAB IsPOKE 35,7:HOME 
1820 PRINT "ROOM: ”;P$(P(1)) 

1830 PRINT "CARRYING: ";W$(P(2)) 

1840 PRINT "VICTIM: ";N$ 

1850 PRINT : PRINT "VISIBLE: "; 

1860 IF R(P(1) ,0) = 0 THEN 1890 
1870 FOR X = 1 TO R(P ( 1 ) , 0 ) 

1880 PRINT W$(R(P(1) ,X) ) ; " “;:NEXT 

1890 PRINT :POKE 35, 24: POKE 37, CP: POKE 34, 7: RETURN 
1900 VTAB 20 : PRINT "PRESS < RETURN > TO CONTINUE... 
1910 GET CH$ : IF CH$ < > CHR$ (13) THEN 1910 

1920 PRINT : PRINT CHR? (4) "RUN MENU" 


> 
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5. Attack of the Zargons 

Due to recently enacted weapons-control laws and your usually lawless 
attitudes, you are the only person remaining on earth who has a weapon. 
This puts you in the unique position as the only defender of the planet in 
the face of an onslaught of invading alien hordes from the planet Zargon. 
You feel the weight of responsibility and the urgency of the moment as 
you pull out your patented ACME ALIEN INVADER POWER 

DRAINER (page 342 in the Whole Planet Catalog) and fearlessly begin 
firing at the approaching ship. 

Such is your power and responsibility in Attack of the Zargons. This 
game uses high-resolution graphics and sounds to create a simple arcade- 
style game. Shape tables draw the Zargonian ship and your weapon and 
high-resolution graphics commands produce the other special effects. 

A short machine-language sound-generation routine is used to produce 
the tones heard during the initial “welcome” screen and when shots are 
fired by the Zargonian ship and your weapon. This routine is the same one 
used in Flip Flop y and it is detailed in that program. 


Game Rules 

1. If you are selecting the game from the Main Menu, choose 5. If you 
are not using the menu, run the program. 

2. After the game is loaded, there is a short delay before the action 
begins. 

3 . Use paddle 0 or the joystick to move your weapon base left and right . 

4. Fire at the invader by pressing the game controller button. 

5. You receive 100 energy units for hitting the ship. 

6. You expend 5 energy units for each shot taken. 

7. You lose half of your accumulated energy units if you are hit. 

8. You lose half of your accumulated energy units if you do not hit the 

argonian ship at least twice on each screen pass. 

The game ends when the enemy ship reaches the bottom of the 
screen. 

10 Tr\ 

• *o win, you must have at least 2000 points when the game is over. 
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Programming Notes 


10-30 

40 

50 

60-70 

80-110 

120-210 


220-230 

240-260 

270-350 

360-390 

400-420 

430-520 

530-570 

580-630 

640-670 

680 


Program initialization 
Poke sound routine into memory 
Welcoming text screen 
Load and initialize shape table 
Game initialization 
Main game loop 
140 Draw ship and weapon 

150 Zargonian ship fires only 10% of time (max- 

imum) 

160 Undraw the Zargonian ship 

180 Do score 

190 Adjust score if weapon has hit ship less than 2 
times across screen. 

200 Reset screen-crossing counters 

Game end and check for winning score 
Low score (less than 3000), print message 
High score (3000 or greater), print message 
Another game or end the program and return to the 
Main Menu 

Score adjustment (add to or subtract from the score) 

Zargon fires at weapon 

Draw weapon at correct position 

Fire at the Zargonian ship 

Musical printing routine 

Data statements for states 


Attack of the Zargons. 

10 REM ATTACK OF THE ZARGONS 

20 Ml = PEEK (115) :M2 = PEEK (116) 

30 HIMEM: 8192 

40 POKE 768, 166 :POKE 769,l:POKE 770,164:POKE 771,0: 

POKE 772,173 :POKE 773,48:POKE 774,192:POKE 775,1 

36 : POKE 776,208:POKE 777,253:POKE 778,202:POKE 7 
79, 208 :POKE 780, 245: POKE 781,96 
50 HOME :SPEED= 100:A$ = "ATTACK OF THE ZARGONS" :HT 

AB 10 sGOSUB 640 :PRINT : PRINT :A$ = " THEY ARE C 


OMING " sGOSUB 640 sPRINT SPRINT : PRINT 

:A$ = " GOOD LUCK 1" sGOSUB 640:SPEED= 2 
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60 PRINT " BLOADARC . OBJ " 

70 POKE 232, 32 sPOKE 233,78 

80 DIM ST$ ( 15 ) s FOR X = 1 TO 1 5 : READ ST$(X):NEXT 

90 HOME sT = 0 : R1 = INT ( PDL (0)):Y = 20:A = 0:B » 

265 :C = 5 
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I 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


250 

260 

270 

280 

290 

300 

310 

320 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


HGR :ROT= 0 : SCALE= 1:XDRAW 2 AT Rl,150 

HOME sVTAB 23 : HTAB 6: PRINT "ENERGY UNITS STOLEN- 
" ; T 

FOR Y = 20 TO 130 STEP 5 

FOR X = A TO B STEP C 

XDRAW 1AT X, Y : GOSUB 530 

IF RND (2) < .1 THEN GOSUB 430 

XDRAW 1AT X, Y 

NEXT 

GOSUB 400 

IF SF < 2 THEN T = INT (T * M) sVTAB 2 3 : HTAB 28 :C 
ALL - 868 : PRINT T 

SF = 0 s TP = A: A = BsB = TPsC = - C 

NEXT 

TEXT :HOME 

IF T > 2000 THEN 270 

PRINT "THIS HAS BEEN A SAD DAY FOR EARTH. ALL": 
PRINT "HAS BEEN LOST. THE ZARGONS HAD" SPRINT "E 
NOUGH POWER LEFT TO DESTROY THE EARTH. " 

PRINT "YOUR SCORE OF ";T;" JUST WASN'T GOOD" 
PRINT "ENOUGH.": GOTO 360 

PRINT "CONGRATULATIONS YOU HAVE SUCCESFULLYD 

EFENDED THE EARTH AGAINST THE ZARGONS. " 

PRINT "YOUR SCORE OF "?T;" WAS VERY COMMENDABLE. 
": PRINT 

PRINT "THANKS TO YOUR BRAVERY AND SKILL IN C 

OMBAT , YOU HAVE BEEN AWARDED (BY ACT" 

XI $ = "OF CONGRESS), THE STATE OF " 

X = INT (RND (1) * 33):IF X < 1 OR X > 15 THEN 3 
10 

XI? - Xl$ + ST$ (X) : IF LEN (Xl$) < 37 THEN Xl$ = 
XI? + " IN": IF LEN (Xl$) < 35 THEN Xl$ = Xl$ + " 
DEEP" : PRINT Xl$: GOTO 350 

PRINT Xl$ : IF RIGHTS (Xl$,2) < > "IN" THEN PRINT 

"IN " ? 

IF RIGHTS (Xl$ , 4 ) < > "DEEP" THEN PRINT "DEEP " 

# 

PRINT "GRATITUDE." 

PRINT SPRINT SPRINT "WOULD YOU LIKE TO PLAY AGAI 
N (Y/N) s "; 

GET CH$sIF CH$ < > "Y“ AND CH$ < > "N" THEN 37 

0 

IF CH$ = "Y" THEN 90 

POKE 115 , Ml s POKE 116,M2sPRINT SPRINT CHR? (4)"RU 
N MENU" 

IF T = 0 THEN T = - 2 

M = . 5 s IF T < 0 THEN M = 1 + (1 / (ABS (T) / 100 

)) 

RETURN 

HCOLOR= 3 s FL = 0 

Y8 = 155 sY9 = 155 s IF X + 1 > R1 - 6 AND X + 1 < 

R1 + 6 THEN Y8 = 138 sFL = 1 

IF X + 10 > R1 - 6 AND X + 10 < R1 + 6 THEN Y9 = 

138 sFL = 1 

POKE 0,96 sPOKE 1,10s CALL 768 
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470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 


HPLOT X + 1,Y + 1 TO X + l,Y8:HPLOT X + 10, Y + 1 
TO X + 10, Y9 
IF FL = 2 THEN RETURN 
GOSUB 400 

IF FL = 1 THEN T = INT (T * M) :VTAB 2 3 : HT AB 28 :C 
ALL - 868 :PRINT T 
HCOLOR= 0 : FL = 2 
GOTO 470 

R = PDL (0) +10 
XDRAW 2 AT Rl,150 
R1 = R 

XDRAW 2 AT Rl,150 

IF PEEK ( - 16287) < 128 THEN RETURN 
U = 0 :HCOLOR= 3 s T = T - 5 

IF R1 > = X AND R1 < (X + 12) THEN U = Y + IsT 

= T + 100 :SF = SF + 1 

VTAB 23:HTAB 28s CALL - 868 sPRINT T 

HPLOT R1 , 135 TO R1,U 

POKE 0,192 s POKE 1,10 s CALL 768 

HCOLOR= 0 s HPLOT Rl,135 TO Rl, Us RETURN 

FOR X = 1 TO LEN (A$) 

PRINT MID$ (A$,X,l)j 

IF MID$ ( A$ , X, 1 ) < > " " THEN POKE 0 , RND (1) * 
50 + 50 sPOKE 1,20 s CALL 768 
NEXT sPRINT s RETURN 

DATA ALASKA, UTAH, NEVADA, ARIZONA, NEW MEXICO, WYOMI 
NG, MONTANA, SOUTH DAKOTA, NORTH DAKOTA, IDAHO , IOWA 
KANSAS , NEBRASKA, OKLAHOMA, WISCONSIN 
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6. Phaser Practice 


. Practice is a game of luck. However, it does show how to 

choose random points within set boundaries. This is needed to determine 
where on the target the phaser “blast” is going to hit. 

This program also shows how to draw a circle on the screen . The circle 
is drawn in high-resolution graphics using the HPLOT TO statement 
Once the first point on the circle’s perimeter is calculated and plotted the 
next point is calculated and a line is drawn from the previous point to the 

is sima “ - s 

Game Rules 

1 . If you are selecting the game from the Main Menu, choose 6. If you are 

not using the menu , run the program . i you are 

2. The directions will be displayed. 

3. Enter the number of players. The game allows one to three players. 

4. Enter the names of each player as prompted by the program. 

5 shS touse* draW " and CaCh PlayCr ’ ^ tUm ’ WiU bC prom P ted for the 

6. Press a 1, 2, or 3 for your shot. 

7 ' co, “ iusio '' ° f ■ roMd “ ^ «=« * 

8. Upon completion, the players are ranked according to their score 
inen you can play again or exit to the Main Menu. 


Set high memory to “protect” shape table 
Load and initialize shape table 
Game initialization 
Display instructions 

Get number of players and check for validity 

Get player names and call target-drawing routine 
Game set up 


39 


240-470 


480-500 

510-520 

530-580 

590-760 

770-780 

790-860 


Main program loop 

240-260 Print round number and name (in 


inverse) 

270-300 Get desired shot 

310-420 Set parameters for each type of shot 

430-450 Show shot and print new score 

460-470 Check for winner and loop if none 

Sort names and scores 

Display game results 

Play again or exit to Main Menu 

Plot the individual shot and display it 

Generate a random number between 1 and 10 

Draw, as concentric circles, the target 


Phaser Practice. 


10 

20 

30 

40 

50 

60 


70 

80 


90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 


Ml - PEEK (115) :M2 - PEEK (116):HIMEM: 7499 
PRINT " BLOADOBJ . PP " 

POKE 232, 76 sPOKE 233,29 
S = - 16336 

T$(l) = "OVERARM" sT$ (2) = "SIDEARM" : T$ ( 3 ) = "UNI 
ERARM" ' 

H$(0) = "MISS i " sH$ ( 1 ) = "10 POINTER l" :H$(2) = 
20 POINTER 1 " s H$ ( 3 ) = "30 POINTER 1" sH$(5) = "I 
ULLSEYE i" ; * 

HOME SPRINT TAB ( 13) 7 "PHASER PRACTICE " s PRINT 
PRINT THE OBJECT OF THE GAME IS TO BE THE E 

IRST PLAYER TO ACCUMULATE 250 CREDITS BY FIRING 
A PHASER AT A TARGET . " 

PRINT sPRINT "THE ZONES ON THE TARGET HAVE POINT 
VALUES OF 10, 20, 30, AND 50 POINTS." 

PRINT sPRINT "SHOT TYPE OF SHOT"?TAB( 27);"VA 
LUE 

PRINT " — " ; TAB ( 27);" " 

PRINT " I " ; TAB ( 10 ) ; T$ ( 1 ) ; TAB( 25);"50 PTS OR MI 
oo 

PRINT " 2 " ; TAB ( 10) ; T5 ( 2 ) ; TAB ( 25); "10, 20 OR 30 

nTM N 3;l'B.\" ;TAB ^ 10 ) -*T5(3) ;TAB( 25 ); "ANYTHING" 

DIM W( 10) :R = 0;M = 0 

PRINT sPRINT "NUMBER OF PLAYERS (1-3) s "• 

GET N$:N = VAL (N$)sIF N < 1 OR N > 3 THEN 170 
PRINT N sPRINT sFOR X = 1 TO N 

PRINT sPRINT "NAME OF PLAYER #"7X;sINPUT " ? ";A 
S(X) = 0 

NEXT sHOME sGOSUB 790 
VTAB 21 sPRINT "ROUNDs" 

poke: 32, 14: VTAB 21: FOR X = 1 TO N: PRINT A$(X);": 
0 : NEXT :POKE 32,0 91 ; 
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240 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 


mV * l,VT " 21lHT “ 

FOR X = 1 TO N 

A ?(XhV;So2 Jpr?OT L " ».|?x) INVERSE !PRINT 

" -;SS SPRINT »SHO 

O E J 4 0 H5SIP CH? = CHR$ < 27 > THEN TEXT :HOME , G0T 

PRINT ^T (CH5):IF T < 1 OR T > 3 THEN 280 
ON T GOTO 320,330,340 

PI = i 99 P p 2 = = ' ??7^P3 = - 6; G0T0 350 

PI = .95:P2 = • 75 : P3 = .*45 -p 4 I •JJ 01: G0T0 
U = RND (2) .43.F4 - .05 

IF U > pi THEN B = 50 . GOTO 410 

IF U > P2 THEN B = 30: GOTO 410 

TK , „ > P2 THEN B = 20: GOTO 410 

B _ 0 > P4 TH EN B = 10. GOTO 410 

REM 

S(X) = S(X) + B:VTAB 23:PRINT " 

AB 23 .-PRINT H$(B / 10) sVT 

GOSUB 590 

V "fs(X^ 0 + X):HTAB 3 5 : CALL - 868:PRINT A$(X);" : 
NEXT 

FOR X = 1 TO N 

FOR S i X i i ll 0 THEN NEXT : G °TO 240 

is 1 

text .home . print -we hive a winner in round , ■ 

T^i^ R ^ x ;T- i ^ 0 ^-"-«i»t .for x . I to 
PRTNT .PRINT Ikl^INi^ , 

GET A$:IF AS < > "v" A KT rx 

IF A? = "y" THEN R = 0^GOTO 160 ' " N,, THEN 540 

HOME sVTAB 8 SPRINT "THAwy p nD 

POKE U5,Ml:POKE Il6™f X ^ ™ E GAME 1 1 " 

P r INT :PRXNT CHR$ (4) "RUN MENU" 

L = B / 10. i F B = 5 then B = 

— b — L 

Mb 1 ” (RND (2) * 361):IF I < 1 OR I > 359 THEN 

7.3) * 20 SIN (I ' 57,3) * 20sX1 = L * COS (I / 5 

COS (i’/MM * 20 SIN U ' 5? - 3) * 205X2 = * * 

140 + I X1)!x 2 I Si7l40 + N X2) 80 “ Y2):X1 = INT ( 
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650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

320 

830 

840 

850 

860 


GOSUB 770 :Y3 = Y1 - RN;IF Y3 < Y2 THEN Y3 = Y2 
GOSUB 770 :X3 = XI - RN : IF X3 < X2 THEN X3 = X2 

HCOLOR= 3 : HPLOT 0,160 TO X3,Y3:HPLOT 279,160 TO 
X3 , Y3 

SCALE= 2 : ROT= 0:FOR Z = 1 TO 10 
XDRAW 1AT X3,Y3 
FOR Z1 = 1 TO 6 

SO = PEEK ( S ) : SO = PEEK (S):SO = PEEK (S) 

NEXT 

XDRAW 1AT X3,Y3 
NEXT 

HCOLOR= 0: HPLOT 0,160 TO X3,Y3: HPLOT 279,160 TO 
X3,Y3 

RETURN 

RN = INT ( RND (2) * ll)sIFRN> 10 OR RN < 1 THE 

N 770 

RETURN 

HGR 

HCOLOR= 3 

FOR Z = 20 TO 80 STEP 20 
FOR I = 0 TO 360 STEP 4 

Y = INT (80 - Z * SIN (I / 5 7 • 3 ) ) sX = INT (140 + 
Z * COS (I / 57.3)) 

IF I = 0 THEN HPLOT X,Y 
HPLOT TO X,Y 
NEXT : NEXT : RETURN 
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7. Acey-Ducey 


This is a game for gamblers. Three cards are picked at random and you 

bet on whether or not the value of the third card will be between the first 
two. 

The cards are displayed on the screen using subroutines to draw the 
blank cards and the card’s symbols, correctly positioned. The card 

table S heaits ’ diam °nds, spade, and clubs— are drawn using a shape 

One suggestion for improving the game is to add a real “deck” and deal 
Irom it. As the game is presently programmed, the cards are drawn at 
random from an “unlimited” deck; a card, for example, the ten of hearts 
can occur more than once in a game, or even in one hand. 


Game Rules 

1. If you are selecting the game from the Main Menu, choose 7. If you 
are not using the menu, run the program. 

2. The instructions will be displayed. 

3. Press < RETURNS to start the game. 

4. You begin with a $100.00 stake. 

5. Two cards will be shown face up and one face down. 

6. Enter your bet. You can bet nothing (by entering 0) or up to your full 
staKe . 

7. The face-down card will be shown. 

8. If the third card’s value is between the values of the first two cards 
you wm the amount of your wager. If the third card’s value is less than 
the first card, greater than the second card, or equal to either of the 
first two cards, you lose the amount of your wager. 

9. Card ranking is 2 through 10, Jack, Queen, King, Ace. 

10. The game ends when you have no more money. 

When the game ends, you can play again or exit to the Main Menu. 
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Programming Notes 


10 

20 

30-60 

70-120 

130-140 

150-195 

200-210 

220-270 

280 

290-310 

320 

330-350 

360 

370-390 

400 

410-460 

470-500 

510 

520 

530-550 

560-570 

580 

590-600 

610-660 

670-740 

1200-1230 

1300-1360 

1400-1480 

1500-1570 

1600-1650 

1700-1780 

1800-1860 

1900-1970 

2000-2040 

2100-2120 

2200-2220 

2300-2320 

2400-2420 


Set high-memory boundary 
Initialize and load shape table 
Program initialization 
Dollars and cents display routine 
Rounding routine 
Display directions 

Wait for a <RETURN> before proceeding 

Initialize screen and display 

Check for player with no money 

Pick first two cards 

Redo blank cards on screen 

Pick suit for first card 

Show first card 

Pick suit for second card 

Show second card 

Get wager; exit or check for validity of wager 
Pick third card and suit 
Show third card 
Does the bet win? 

Yes, so add to your stake 

No, so decrease your stake 

Short pause and loop for next hand 

Out of money, therefore game is over 

Play again or exit to Main Menu 

Print blank cards on screen (no markings) 

Display markings for two 

Display markings for three 

Display markings for four 

Display markings for five 

Display markings for six 

Display markings for seven 

Display markings for eight 

Display markings for nine 

Display markings for ten 

Display markings for Jack 

Display markings for Queen 

Display markings for King 

Display markings for Ace 
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10 

20 

30 

40 

50 

60 

70 

30 

90 

100 

110 


Acey-Ducey. 

Ml = PEEK (115) sM2 = PEEK (116):HIMEM: 8192 
DIM C$(14) sPOKE 232,32 :POKE 233,78:PRINT BLOAD 

CARDS " 

DATA 2, 3, 4, 5, 6, 7, 8,9, 10, JACK, QUEEN, KING, ACE 
FOR X = 2 TO 14:READ C$(X):NEXT 
ROT= 0 : SCALE= 1 
GOTO 150 , „„ 

Q = INT (Q * 100 + -5) / 100 
Q$ = STR$ (Q)tIF Q = 0 THEN Q$ - 
IF INT (Q) = 0 THEN Q$ = "0" + Q? 

IF Q = INT (Q) THEN 0$ = Q$ + ''•00"* „ 

IF ASC ( RIGHT? (Q$,3)) < > 46 THEN Q$ - Q? + 


0 


II 


120 

130 

140 

150 

160 


170 


180 

190 

195 

200 

210 / 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


RETURN 

R = INT ( RND (1) 
30 

RETURN 

HOME 

PRINT "ACEY-DUCEY 
INT "WAY: "sPRINT 


* 17):IF R < 2 OR R > 14 THEN 1 


IS PLAYED IN THE FOLLOWING" : PR 
sPRINT "THE DEALER (COMPUTER) D 


PRINT™FACE R UP . YOU HAVE THE OPTION TO BET OR N 
CT TO BET DEPENDING ON WHETHER OR NOT YOU THINK 
THE NEXT CARD DEALT WILL HAVE A VALUE BETWEEN T 

HE F X RST TWO • " 

PRINT sPRINT "IF YOU DO NOT WISH TO PLACE A BET, 
"•PRINT "ENTER '0' FOR YOUR BET • sPRINT 
PRINT "TIES WITH YOUR UPPER AND LOWER CARDS AREA 
UTOMATICALLY WON BY THE HOUSE. 

PRINT sPRINT "ENTERING 'QUIT' AS^YOUR BET WILL A 
LLOW YOU TO END THE GAME EARLY." 

VTAB 23 : PRINT "PRESS <RETURN> TO CONTINUE... ? 
GET 1$ s IF 1$ < > CHR$ (13) THEN 210 

HOME : HGR 


VTAB 21 : PRINT "STAKE: 

VTAB 22 sPRINT "YOUR WAGER: $" 


Q = 100 

GOSUB 70 m 

VTAB 2 1 : HTAB 8: CALL - 868 sPRINT Q$ 

IF Q < .02 THEN 590 
GOSUB 130: A = R 
GOSUB 130 : B = R 
IF A > = B - 1 THEN 290 

GOSUB 670 
X = 20 

GOSUB 130: IF R > 4 THEN 340 


ON (A - 1 ) GOSUB 1200,1300,1400,1500,1600,1700,18 

00,1900,2000,2100,2200,2300,2400 

X = 100 

GOSUB 130: IF R > 4 THEN 380 


grp — 

ON (B - 1) GOSUB 1200,1300,1400,1500,1600,1700,18 
00,1900,2000,2100,2200,2300,2400 
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410 VTAB 2 2 : HTAB 14: CALL - 958: INPUT "" ?M$ 

415 IF M$ = "QUIT" THEN TEXT : HOME : PRINT "THANKS FO 
R PLAYING 1" : PRINT : GOTO 610 
420 M = VAL ( M$ ) : IF M < 0 THEN PRINT CHR$ (7)?: GOTO 

410 

430 IF M = 0 THEN VTAB 23: CALL - 868: PRINT "CHICKEN 
1": GOTO 270 

440 IF M$ = Q$ THEN 470 
450 IF M < = Q THEN 470 

460 VTAB 23: CALL - 868: PRINT "SORRY, BUT YOU ONLY H 
AVE $ " ; Q$ : GOTO 280 
470 GOSUB 130 : C = R 
480 GOSUB 130: IF R > 4 THEN 480 
490 ST = R 

500 X = 180 

510 ON (C - l)GOSUB 1200,1300,1400,1500,1600,1700,18 

00,1900,2000,2100,2200,2300,2400 
520 IF C < = A OR C > = B THEN 560 

530 VTAB 23: CALL - 868: PRINT "YOU WIN Mill" 

540 Q = Q + M 

550 GOTO 580 

560 VTAB 23: CALL - 868: PRINT "SORRY, BUT YOU LOSE l 

H 

570 Q = Q - M 

580 FOR DE = 1 TO 2500:NEXT : GOTO 260 

590 TEXT :HOME 

600 PRINT "SORRY, FRIEND, BUT YOU LOST YOUR ENTIRE S 
TAKE 1" : PRINT 

610 PRINT "TRY AGAIN (Y/N): "; 

620 GET A$ : IF A$ < > "Y" AND A$ < > "N" THEN 620 

630 IF A$ = "Y" THEN 220 

640 PRINT "HOPE YOU HAD FUN l l l " 

650 POKE 115 , Ml : POKE 116, M2 

660 PRINT : PRINT CHR$ (4) "RUN MENU" 

670 HGR 

680 HCOLOR= 3 

690 FOR X = 20 TO 80 

700 HPLOT X,10 TO X, 75 

710 HPLOT X + 80,10 TO X + 80,75 

720 HPLOT X + 160,10 TO X + 160,75 

730 NEXT 

740 RETURN 

1200 X = X + 30 

1210 Y = 38 :XDRAW STAT X,Y 

1220 Y = 56 : XDRAW STAT X,Y 

1230 RETURN 

1300 X = X + 15 

1310 Y = 34 : XDRAW STAT X,Y 

1320 X = X + 15 

1330 Y = 47 : XDRAW STAT X,Y 

1340 X = X + 15 

1350 Y = 62 : XDRAW STAT X,Y 

1360 RETURN 

1400 X = X + 20 

1410 Y = 38 : XDRAW STAT X,Y 
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1420 

1430 

1440 

1450 

1460 

1470 

1480 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1600 

1610 

1620 

1630 

1640 

1650 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1300 

1810 

1820 

1830 

1840 

1850 

1860 

1900 

1910 

1920 

1930 

1940 

1950 

I960 

1970 

2000 

2010 

2020 

2030 

2040 

2100 

2110 

2120 

2200 


X = X + 20 
XDRAW STAT X,Y 
X = X - 20 

Y = 56s XDRAW STAT X,Y 
X = X + 20 

XDRAW STAT X,Y 
RETURN 

FOR Z = X + 15 TO X + 45 STEP 15 
IF Z = X + 30 THEN 1550 

Y = 34 : XDRAW STAT Z,Y 

Y = 62: XDRAW STAT Z,Y 
GOTO 1560 

Y = 47 s XDRAW STAT Z,Y 
NEXT 

RETURN 

FOR Z = X + 20 TO X + 40 STEP 20 

Y = 34 : XDRAW STAT Z,Y 

Y = 47: XDRAW STAT Z,Y 

Y = 62: XDRAW STAT Z,Y 
NEXT 

RETURN 

FOR Z = X + 15 TO X + 45 STEP 15 
IF Z = X + 30 THEN 1760 

Y = 34 : XDRAW STAT Z,Y 

Y = 47: XDRAW STAT Z,Y 

Y = 62: XDRAW STAT Z,Y 
GOTO 1770 

Y = 47: XDRAW STAT Z,Y 
NEXT 

RETURN 

FOR Z = X + 20 TO X + 40 STEP 20 

Y = 31 : XDRAW STAT Z,Y 

Y = 42: XDRAW STAT Z,Y 

Y = 53 : XDRAW STAT Z,Y 

Y = 64: XDRAW STAT Z,Y 
NEXT 

RETURN 

FOR Z = X + 15 TO X + 45 STEP 15 

960 Z = X + 30 THEN Y = 47: XDRAW STAT Z, 

Y = 31 : XDRAW STAT Z,Y 

Y = 42: XDRAW STAT Z,Y 

Y = 53: XDRAW STAT Z,Y 

Y = 64: XDRAW STAT Z,Y 
NEXT 

RETURN 

FOR Y = 29 TO 65 STEP 9 
XI = X + 20: XDRAW STAT XI ,Y 
XI = X + 40: XDRAW STAT XI . Y 
NEXT 
RETURN 

X = X + 25 : Y = 42 
XDRAW 5 AT X,Y 
RETURN 

X = X + 25:Y = 42 


Y: GOTO 1 
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2210 XDRAW 6AT X,' 
2220 RETURN 
2300 X = X + 25 s Y 
2310 XDRAW 7 AT X, 
2320 RETURN 
2400 X = X + 30 :Y 

2410 XDRAW STAT X 

2420 RETURN 


= 47 

= 47 
Y 
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8. Big Government 


Ten score and eight years ago, our forefathers had a small government. 
Now you have a BIIIIIIIIIIG (that’s really big!) government. You are the 
president of a country and must decide how to run the party and keep your 
constituents (the unsuspecting voters who elected you) happy. You will be 
in office for 48 months (unless you are impeached before then). 

You can buy and sell bonds for the treasury, spend money (what some 
politicians seem to do best) to keep the people happy, and solicit contribu- 
tions (what some politicians do second best). But watch out! Graft, 

kickbacks, and unforeseen events always occur when the future looks 
brightest. 

You will be constantly updated on the latest events by the news teletype 
(notice the percussive sound of the hammer hitting the keys) and your ever 
vigilant advisers, who interrupt periodically with news flashes. 

If you have hopes and dreams for high office, choose 8 from the Main 
Menu and play Big Government. But beware, the public is fickle at best 
and downright hostile at worst! 

Game Rules 

1. If you are selecting the game from the Main Menu, choose 8. If you 
are not using the menu, run the program. 

2. The instructions will be displayed. 

3. Enter your name when prompted. You can enter your entire name, 
but the screen format is “neater” if you use only your first name. * 

4. Each month until the election will bring new plans, conditions, and 
perils. 

5. You can buy and sell bonds at the current market price. This varies 
from month to month. 

6. You should spend approximately $20.00 per voter to keep them in 
your political camp. Spending more than that results in more people 
joining your forces, while spending less alienates a number of voters. 

' ^ ou can alienate a small number of voters, but alienating too many at 

one time will result in your impeachment and subsequent removal 
from office. 
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8. The amount you spend on soliciting contributions can be up to twice 
the number of bonds you have in the treasury. 

9. You need at least one person in your camp for every $10.00 spent on 
solicitation. After all, you don’t want to overwork your supporters. 

10. Soliciting contributions is the primary way to make money. 

1 1 . The game ends at election time . This is 48 months , or turns , from the 
beginning of the game (unless you are impeached). 

12. Upon completing the game, the statistics for your term in office will 
be reviewed and the game will end. 


Programming Notes 

10-50 

Instructions 

60-70 

Get player’s name 

80-130 

Game initialization and screen setup 

140-210 

Begin printing monthly status 

220-250 

Crisis — half of the voters leave camp 

260-300 

Continue printing monthly status 

310 

Check for end of game and branch if finished 

320 

Determine price for bonds 

330 

Print bond price 

340-380 

Allow player to buy bonds and adjust figures 

390-430 

Allow player to sell bonds and adjust figures 

440-480 

Player specifies amount to spend on voters 

490-560 

Player specifies amount for solicitation 

570-700 

Adjust monthly figures by random amounts 

710-750 

Crisis — alienated too many people 

760 

Deficit-spending error message 

770-810 

Screen status refresh routine 

820 

Generate random number between 1 and 8 

830-850 

Crisis — mental incompetence 

860-910 

End-of-game status report 

920-980 

Branching logic for game performance 

990 

Excellent job message 

1000-1010 

Poor job message 

1020-1040 

Fair job message 

1050-1070 

End the game 

1080-1090 

Bad job message 

1100-1120 

Good money raiser message 
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1130-1150 

1160-1190 

1200-1220 

1230-1250 

1260-1280 

1290-1320 

1330-1350 

1360-1380 

1390-1410 

1420-1440 

1450-1470 

1480-1510 


Pick random News Flash message 
Print News Flash message 
News Flash — dishonest brother 
News Flash — cabinet resigns 
News Flash — economic policies 
News Flash — campaign practices 
News Flash — Mideast breakthrough 
News Flash — inflation down 
News Flash — oil prices up 
News Flash — polls down 
News Flash — campaign contribution 
Teletype printing routine 


10 

20 

30 


40 


50 


60 

70 

80 


90 

100 

110 


120 

130 

140 

150 

160 

170 


Big Government. 

REM BIG GOVERNMENT 

HOME : PRINT TAB ( 13); "BIG GOVERNMENT ": PRINT :PRI 
NT : PRINT 

PRINT YOU ARE THE PRESIDENT (WE WON'T SAY OFW 
HICH NEARBY COUNTRY) AND YOU HAVE TO MAKE THE 
EVERYDAY DECISIONS THAT WILL” 

PRINT "ENSURE THAT YOU WILL BE RE-ELECTED NEXT E 
LECTION (WHICH HAPPENS TO BE 48 MONTHS FROM NOW. 
)" SPRINT SPRINT 

PRINT " YOU CAN MAKE MONEY FOR THE PARTY ( 

WHICH IS ONE OF YOUR MANY JOBS) BY BUYING AN 

D SELLING BANK BONDS, BUT BE CAREFUL NOT TO AL 
IENATE TOO MANY VOTERS , BECAUSE THEY DO ALL OF YO 
UR WORK AND ARETHE KEY TO YOUR SUCCESS.” 

VTAB 23: INPUT "PLEASE ENTER YOUR NAMEs ";N$ 

IF LEN (N$) = 0 THEN VTAB 23s CALL - 868s GOTO 6 
0 

HOME s VTAB 1 :PRINT "TREASURY FUNDS s " s PRINT "BOND 
S IN BANKs" :PRINT "FAVORABLE VOTERS s ": PRINT "MON 
THS TIL ELECTION:" 

VTAB 5 : PRINT "< — > < — > < — > <-_> <__> <„> 

< — > " 

VTAB 20 .-POKE 34, 6: HOME 

D1 = 0 : PI = 0 : Z = 48 :P = 100 - INT ( RND (1) * 20 
)sH = INT (RND (1) * 3000) :E = INT (RND (1) * 39 
1):S^= 3000 + H - E: Y = 3:A = INT (H / Y):I = 5; 

BR = INT (A / P) 

GOSUB 770: GOTO 220 

PRINT : S$ = "MR. PRESIDENT, OUR OFFICIAL SOURCES 
": GOSUB 1480 

P = P + I : Z = Z - 1 : GOSUB 770 

S$ = "REPORT THAT ONLY " + STR$ (Z) + " MONTHS R 
EMAIN" : GOSUB 1480 

S$ = "UNTIL ELECTION «TIME , AND " + STR$ (D) + " 
VOTERS" :GOSUB 1480 
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180 

190 

200 

210 


220 

230 

240 

250 


260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 


420 

430 

440 


450 

460 

470 

480 

490 


500 

510 

520 


S$ = "WERE ALIENATED. HOWEVER, " + STR$ (I) + " 
VOTERS" :GOSUB 1480 

S$ = "HAVE JOINED OUR SIDE.":GOSUB 1480 
IF RND (1) < .2 THEN GOSUB 1130:GOSUB 770 
IF FL THEN PRINT :S$ = "AN ANONYMOUS CONTRIBUTOR 
HAS JUST DONAT-ED $" + STR$ (FL):GOSUB 1480:FL 
= 0 

IF Q > 0 THEN 260 
FL = 1 

P = INT (1 + P / 2 ) : GOSUB 770 

PRINT :S$ = "BAD NEWS, MR. PRESIDENT. A RECENT 
NEWS POLL SHOWS THAT YOU HAVE LOST HALF OF YOU 
R POTENTIAL VOTERS DUE TO A SURPRISE ANNOUNCEMEN 
T FROM YOUR OPPOSITION .": GOSUB 1480 
PRINT :S$ = "THE NUMBER OF PEOPLE IN YOUR CAMP N 
OW STANDS AT " + STR$ (P) + GOSUB 1480 

PRINT :S$ = "THE PARTY NOW HAS " + STR$ (A) + " 
BANK BONDS. " :GOSUB 1480 

PRINT : S$ = "YOU RECEIVED $" + STR$ (H) + " IN D 
ONATIONS . " : GOSUB 1480 

IF E < >0 THEN PRINT 2S$ = "KICKBACKS PAID OUT 

AMOUNTED TO $ " + STR$ (E)2GOSUB 1480 
PRINT 2S$ = "YOU NOW HAVE $" + STR$ (S) + " IN T 
HE TREASURY" 2 GOSUB 1480 ; PRINT 
IF Z = 0 THEN 860 

C = INT (RND (1) * 11 ) 2 Y = C + 17 

S$ = "BONDS ARE NOW SELLING AT $" + STR$ (Y) + " 

."2 GOSUB 1480 2 PRINT 2 PRINT 

S$ = "HOW MANY BONDS DO YOU WISH TO BUY? "«FQ = 

1 2 GOSUB 1480 

INPUT " " ; Q$ 2 Q = VAL (Q$)2lF Q < 0 THEN 830 
IF Y * Q > S THEN GOSUB 7602 GOTO 340 
A = A + Q: S = S - Y * Q : C = 0 
PRINT : IF Q > 0 THEN GOSUB 770 

S$ = "HOW MANY BONDS DO YOU WISH TO SELL? " ;FQ = 

1 2 GOSUB 1480 

INPUT " "?Q$2Q = VAL ( Q$ ) s IF Q < 0 THEN 830 
IF A < Q THEN PRINT ;S$ = "MR. PRESIDENT, THE PA 
RTY ONLY HAS " + STR$ (A) : GOSUB 1480 S S$ = "BONDS 
IN THE BANK. "2 GOSUB 1480 2 PRINT 2 GOTO 390 
A = A - Q : S = S + Y * Q 2 C = 0 
PRINT ; IF Q > 0 THEN GOSUB 770 

S$ = "HOW MUCH MONEY SHOULD BE SPENT TO KEEP OU 
R VOTERS HAPPY? ($20 PER VOTER USUALLYDOES IT) 2 
" : FQ = 1 2 GOSUB 1480 

INPUT "" ;Q$2Q = VAL (Q$)2lF Q < 0 THEN 830 
IF Q > S THEN GOSUB 7602 GOTO 440 
S = S - Q 2 C = 1 2 PRINT 
GOSUB 770 

S$ = "HOW MUCH DO YOU WISH TO SPEND ON M 2GOSUB 14 
80 2 S$ = "SOLICITING DONATIONS? " S FQ = Is GOSUB 14 
80 

INPUT "";D$:D = VAL (D$):IF D = 0 THEN 570 
IF D < 0 THEN 830 

IF D > (2 * A) THEN PRINT :S$ = "MR. PRESIDENT, 


52 


530 

540 

550 


560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 


770 

780 

790 

800 

810 

820 

830 

840 


850 

860 

870 


880 


YOU KNOW WE NEED MORE BONDS IN THE BANK TO BA 
CK THAT TYPE OF SOLICITATION VENTURE. PLEASE R 
ECONSIDERTHE AMOUNT s GOSUB 1480:PRINT s GOTO 49 


IF D > S THEN GOSUB 760: GOTO 490 
IF D < = 10 * P THEN 560 

PRINT : S$ = "BUT YOU ONLY HAVE " + STR$ (P) + " 
PEOPLE TO DO" : GOSUB 1480 :S$ = "THE SOLICITING. 
EACH PERSON CAN ONLY SPEND $10 FOR THE PROJECT." 
: GOSUB 1480: GOTO 490 
S = S - D: GOSUB 770 
GOSUB 820 

Y = C:H = D * Y: E = 0:IF C > 6 THEN FL = C * P*H 
= H + FL 
GOSUB 820 


IF C < 4 THEN E = INT (S / C) 

S = S - E + H: GOSUB 770 
GOSUB 820 

IF P = 0 THEN P = 1 
I = INT ( ( RND (1) * P) / 2) + 1 
C = INT (Q / 20) 

Q = INT (RND (1) * 101) :Q = INT (Q / 15) 
D=P-C:IFD< =0 THEN I = I + INT (ABS (D) 

/ 19 * RND (1) * 11) sD = 0: GOTO 140 
IF D * 20 > 9 * P THEN 710 
PI = INT ( D1 * 110 / (P * Z)) 

P = C:D1=D1+D: GOTO 140 

PRINT : PRINT "YOU ALIENATED "?D?" PEOPLE IN ONE" 
: PRINT "MONTH 1": PRINT 

PRINT "DUE TO EXTREME MISMANAGEMENT YOU HAVE "*P 
RINT "NOT ONLY BEEN IMPEACHED " 

PRINT "AND THROWN OUT OF OFFICE BUT YOU HAVE" 
PRINT "ALSO BEEN DECLARED NATIONAL FINK." 

GOTO 1050 

S$ = "MR. PRESIDENT, WE ONLY HAVE $" + STR$ (S): 
GOSUB 1480 :S$ = "IN THE TREASURY. WE CANNOT COND 
ONE" : GOSUB 1480:S$ = "DEFICIT SPENDING .": GOSUB 1 
480: PRINT : RETURN 


VTAB 1 : HTAB 18: CALL 
VTAB 2: HTAB 16 .-CALL 
VTAB 3: HTAB 19 .-CALL 
VTAB 4 : HTAB 2 2 : CALL 
VTAB 24: RETURN 


868: PRINT S 
868: PRINT A 
868: PRINT P 
868: PRINT Z 


C = INT (RND (1) * 8) + 1: RETURN 

PRINT : PRINT "SORRY, MR. PRESIDENT, BUT I CANNOT 
DO WHAT YOU WISH.": PRINT 
PRINT "YOU HAVE BEEN IMPEACHED ON GROUNDS OF M 
ENTAL INCOMPETENCE. YOUR TERM IS HERE-BY ENDED. 
"sPRINT 
GOTO 1050 
HOME 

S$ = "IN YOUR 48-MONTH TERM OF OFFICE, YOU HA 
VE OFFENDED OVER " + STR$ (Dl) + " PEOPLE .": GOSU 
B 1480 : PRINT 
IF P = 0 THEN P = 1 
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890 

900 





910 

920 

930 

940 

950 

960 

970 

980 

990 


1000 


1010 


1020 

1030 

1040 

1050 

1060 

1070 

1080 


1090 

1100 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 


L = INT (A / P) 

S$ = "YOU BEGAN WITH A RATIO OF " + STR$ (BR) + 
BANK" : GOSUB 1480 :S$ = "BONDS TO EVERY VOTER, A 
ND YOU ENDED WITHA RATIO OF " + STR$ (L) + " BON 
DS PER VOTER. " :GOSUB 1480 
PRINT 

IF D1 > P THEN PRINT : GOTO 720 

IF P > 110 AND A > 1100 AND S > 2500 THEN 1100 

IF L < 7 THEN 1080 

IF PI > 10 THEN 1000 

IF L < 10 AND D1 > 30 THEN 1000 

IF PI > 3 THEN 1020 

IF L < 10 THEN 1020 

PRINT "A TRULY REMARKABLE PERFORMANCE 11":PRINT 
"SURELY NONE OF YOUR PREDECESSORS COULD HAVE DO 
NE A MORE NOBLE JOB.": GOTO 1050 

PRINT "YOUR UNFEELING, AUTOCRATIC RULE IS R 

EMINISCENT OF CHICAGO DURING THE AGE OFBOSS TWEE 
D. " 

PRINT "THE VOTERS (THAT ARE STILL LEFT) FIND Y 
OU A. VERY UNLIKABLE GUY. YOU WILL BE LUCKY TO 

GET ANY JOB IN THIS COUNTRY IN THE FUTURE.": GOT 
O 1050 

PRINT "WELL, YOU DIDN'T MAKE THE HALL OF FAME, B 
UT YOU DIDN'T MAKE MANY ENEMIES EITHER." 

PRINT INT ((P * 8) * (1 + RND (1) * 13) / 1000). 

" PEOPLE WOULD LIKE TO SEE YOU DEAD," 

PRINT "BUT WE ALL HAVE LITTLE PROBLEMS NOW AND T 
HEN . " 

PRINT " " : PRINT "SO LONG FOR NOW." 

FOR J = 1 TO 10000 :NEXT 
PRINT "RUN MENU" 

PRINT "POOR JOB, " ? N$ ; " . " : PRINT "YOU WERE SUPPOS 
ED TO WORK AT THE JOB, NOT JUST SIT BACK AND T 
AKE THE PAY . " 

GOTO 1050 

PRINT "YOUR PARTY'S BANKBOOK GREW QUITE A BIT. Y 
OU'RE AN EXCELLENT PRESIDENT, BUT YOUR DETRACTOR 
S ARE ASKING FOR A" 

PRINT "CONGRESSIONAL REVIEW OF YOUR FINANCES. G 
OOD LUCK." 

GOTO 1050 

REM CAMPAIGN DISASTERS 

CD = INT (RND (1) * 10):IF CD < 1 OR CD > 9 THEN 
1140 

ON CDGOSUB 1200,1230,1260,1290,1330,1360,1390,14 
20 , 1450 

S$ = "************ NEWS FLASH ************" 

+ CD$ 

PRINT " " : PRINT :PRINT :GOSUB 1480 

PRINT : PRINT 

RETURN 

CD$ = " YOUR BROTHER WAS FOUND TO BE IN C 

AHOOTS WITH A SPY RING FROM BOTSWANA. YOU HAVE 
LOST ONE HALF OF YOUR VOTERS AND ONE THIRD OF 
YOUR BONDS . " 
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1210 

A = INT 

1220 

RETURN 

1230 

CD? = n 


ESIGNED 


POLICY. 

1240 

P = INT 

1250 

RETURN 

1260 

CD? = “ 


ODAY BY 
-OUT BY 
F OF HIS 


•I 


(A * • 66 ) : P = INT (P / 2):D = D + P 

TODAY THE ENTIRE PRESIDENTIAL CABINET R 
IN A MASSIVE DISAGREEMENT OVER DOMESTIC 
YOU LOSE HALF YOUR VOTERS . " 

(P/ 2 ) : D = D + P 

THE NEW ECONOMIC POLICIES ANNOUNCED T 
THE PRESIDENT HAVE PRECIPITATEDA FALLING 
BANKERS , AND THE PRESI-DENT HAS LOST HAL 
BANK BONDS AS A RESULT OF THE REACTION. 


1270 

1280 

1290 


1300 

1310 

1320 

1330 


1340 

1350 

1360 


1370 

1380 

1390 


1400 

1410 

1420 

1430 

1440 

1450 


1460 

1470 

1480 

1490 

1500 

1510 


A = INT (A / 2) 

RETURN 

CD$ = " THE CAMPAIGN PRACTICES OF THE PRESI- D 
ENT CAME UNDER CLOSE SCRUTINY TODAY BY THE NATIO 
NAL BOARD OF REVIEW (N.B.R) AND THE PRESIDENT 
S PARTY HAS BEEN FINED $" 

CD$ = CD$ + STR$ ( INT ( S / 3 ) ) + " . " 

S = S - INT (S / 3) 

RETURN 

CD$ = " THE PRESIDENT HAS SUCCESSFULLY PRE- V 
ENTED A MID-EAST CRISIS BY HIS SKILLFULHANDLING 
OF FOREIGN AFFAIRS. THIS IS EXPECTED TO HAVE 
A GOOD EFFECT ON HIS RE-ELECTION DRIVE." 

P = INT (P * 1.4) 

RETURN 

CD$ = " RECENTLY RELEASED REPORTS SHOW THAT T 
HE RATE OF INFLATION HAS SLOWED CONSID-ERABLY DU 
E TO THIS ADMINISTRATION’S EFFORTS TO REDUCE 

GOVERNMENT SPENDING." 

P = INT (P * 1.2) 

RETURN 

CD$ = THE ARABS HAVE AGAIN RAISED OIL PRICESI 
N RETALIATION TO GOVERNMENT CONCESSIONS IN THE MI 
D-EAST. THIS IS EXPECTED TO REFLECT IN PRESID 
ENTIAL SUPPORT AT THE POLLS THIS FALL." 

P = INT (P * . 8 ) 

RETURN 

CD$ = " RECENT PUBLIC OPINION POLLS SHOW THE P 
RESIDENT HAS HAD A 10% DROP IN VOTER SUPPORT " 
P = INT (P * .9) 

RETURN 

CD$ = " TODAY , CHARLES T. FARNSWORTH, THE N 

OTED TEXAS MILLIONAIRE, HAS ANNOUNCED HIS SUPPO 
RT FOR THE PRESIDENT AND CON- TRIBUTED $4500 TO 
THE PARTY AT A MORNINGPRESS CONFERENCE." 

S = S + 4500 :P = P + 1 
RETURN 

SPEED* 137 : FOR X = 1 TO LEN (S$):PRINT MID$ (S$, 
X, 1 ) 7 s IF MID$ ( S$ , X, 1 ) = " " THEN 1500 
SOUND = PEEK ( - 16336) 

NEXT : IF NOT FQ THEN PRINT 
FQ = 0: SPEED* 255 : RETURN 
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9. Tic-Tac-Toe 


Remember sitting for hours when you were a child, playing Tic-Tac- 
Toe with whoever would take the time to sit and play with you? Well, now 
you have a partner who is always ready, willing, and quite able (to beat 
you). This is as good an excuse as any to start your second or third 
childhood (many of us go through it, don’t we?). 

With the computer as your opponent you may have met your match, 
because you will find that the computer plays quite well. The computer 
even doubles as scorekeeper, keeping track of who wins which games, 
including those that go to the proverbial “cat.” 

This game uses only text, but it can be easily modified to use graphics 
by changing the display routine in line 690. This is the only line that 
would have to be changed. 

This game simulates how a person thinks. The computer evaluates the 
current board conditions and makes a logical choice as to which move to 
make. This is one reason why children enjoy playing this simple game — it 
encourages them to think logically. The choices are based on a mathe- 
matical analysis of the possible winning positions. This analysis is 
performed in lines 190 through 510. 


Game Rules 

1 . If you are selecting the game from the Main Menu , choose 9 . If you are 
not using the menu, run the program. 

2. Choose X’s or O’s by pressing the X or O key. 

3. Specify if you want to move first by answering Yes (Y) or No (N) to the 
prompt. 

4. When it is your turn, signify the position you want to move to by 
pressing the number associated with that position. Positions are num- 
bered a follows: 

1 2 3 

4 5 6 

7 8 9 

5. The object of the game is to get three of your markers in a row — 
horizontally, vertically, or diagonally. 
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6. If neither you nor the computer gets three markers in a row, the “cat” 
wins the game. 

7. At the game’s completion, you can play again or exit to the Main 
Menu. 


Programming Notes 


10-30 

40-50 

60 

70-80 

90 

100 

110-120 

130-160 

170 

180 

190-510 

520 

600-680 

690 

700-810 

820-830 

840-850 


Initialization and screen preparation 

Prompt for you to choose a marker 

Assignment of X and O to you and the computer 

Prompt for you to choose who goes first 

Screen-instruction setup 

Screen display if you move first 

Selection of position if computer moves first 

Get your move and see if it’s valid 

Check for a winner 

Set arrays to determine the winner 

Select computer’s move 

Set computer move, display results, check for winner, 
and loop back for next move 
Determine array values for judging the winner 
Display playing board 

Determine if there is a winner and display appropriate 
message 

Prompt to play again or exit to Main Menu 
End current game 

Tic-Tac-Toe. 


10 REM TIC-TAC-TOE 

20 FOR X = 1 TO 9 : B(X) = 0:NEXT :M$(0) = " . H 

30 HOME SPRINT TAB( 15 ) ; M TIC-TAC-TOE" 

40 PRINT SPRINT "WOULD YOU LIKE X'S OR O'Ss "; 

50 GET M$ s IF M$ < > "X" AND M$ < > "O" THEN 50 

60 PRINT M$ s M$ ( 9 ) = M$sM$(l) - "X" sIF M$ = "X" THEN 

M$ ( 1 ) = "O" 

70 PRINT SPRINT "WOULD YOU LIKE TO MOVE FIRST (Y/N) 

. •• . 

• t 

80 GET CH$ : IF CH$ < > "Y” AND CH$ < > “N” THEN 80 

90 PRINT CH$ : HOME :PRINT "POSITIONS ARE NUMBERED 1 

THROUGH 9 FROM THE TOP-LEFT TO BOTTOM-RIGHT CORN 
ER. " : VTAB 15:POKE 34,5:PRINT sHOME 
100 IF CH$ = "Y“ THEN GOSUB 690s GOTO 130 
110 X = INT ( RND (2) * 10) sIF X < 1 OR X > 9 THEN U 
0 

120 B(X) = 1 : GOSUB 690 

130 VTAB 20 : PRINT “YOUR MOVE (1-9): 
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140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


460 


GET X$:X = 
PRINT X : IF 
130 

B (X) = 9 
GOSUB 700: REM 
GOSUB 600 
REM 

REM SELECT 
REM 
CF = 2 
IF R( 1 ) 

FOR X = 

NEXT 
IF R( 2 ) 

FOR X = 

NEXT 
IF R( 3 ) 

FOR X = 

NEXT 
IF R( 4 ) 


VAL (X$ ) : IF 
B (X) < > 0 


X < 1 OR X 
THEN PRINT 


> 9 THEN 
CHR$ (7) 


140 

GOTO 


SEE IF WINNER 


A MOVE 


< 

1 

< 

4 

< 

7 


> 

TO 

> 

TO 

> 

TO 


CF THEN 260 
3 : IF B (X) = 

CF THEN 290 
6 : IF B (X) = 

CF THEN 320 
9 : IF B (X) = 


0 THEN 520 


0 THEN 520 


0 THEN 520 


> CF THEN 350 


330 

340 

FOR X = 
NEXT 

1 

TO 

7 STEP 3: IF 

B (X) 

— 

0 

THEN 

520 

350 

IF R( 5 ) 

< 

> 

CF THEN 380 






360 

370 

FOR X = 
NEXT 

2 

TO 

8 STEP 3: IF 

B(X) 

= 

0 

THEN 

520 

380 

IF R( 6 ) 

< 

> 

CF THEN 410 






390 

400 

FOR X = 
NEXT 

3 

TO 

9 STEP 3: IF 

B(X) 

= 

0 

THEN 

520 

410 

IF R( 7 ) 

< 

> 

CF THEN 440 






420 

430 

FOR X = 
NEXT 

1 

TO 

9 STEP 4: IF 

B(X) 

= 

0 

THEN 

520 

440 

IF R( 8 ) 

< 

> 

CF THEN 470 






450 

FOR X = 

3 

TO 

7 STEP 2: IF 

B(X) 

S 

0 

THEN 

520 


NEXT 


470 

IF CF < > 

18 

THEN 

CF = 18: 

480 

Y = 

0 s FOR X 

= 

1 TO 

9 

sIF B (X) 


C(Y) 

= X 





490 

NEXT 






500 

X = 

INT (10 

★ 

RND 

(2) ) sIF X 

510 

1 0 

x = 

c(x) 





520 

B (X ) 

= Is GOSUB 690 

: GOSUB 700 

600 

R(l) 

= B ( 1 ) 

+ 

B ( 2 ) 

+ 

B( 3) 

610 

R( 2 ) 

= B(4) 

+ 

B( 5 ) 

+ 

B( 6 ) 

620 

R( 3 ) 

= B( 7 ) 

+ 

B(8) 

+ 

B(9) 

630 

R(4) 

= B( 1 ) 

+ 

B(4) 

+ 

B( 7 ) 

640 

R(5) 

= B(2) 

+ 

B( 5 ) 

+ 

B(8) 

650 

R(6) 

= B( 3 ) 

+ 

B(6) 

+ 

B(9) 

660 

R(7) 

= B( 1 ) 

+ 

B( 5 ) 

+ 

B(9) 

670 

R(8) 

= B( 3 ) 

+ 

B ( 5 ) 

+ 

B( 7 ) 

680 

RETURN 





690 

HOME 

: FOR X 


1 TO 

9 

STEP 3s 


0 


230 

THEN 


Y = Y + 1 


1 OR X > Y THEN 50 


GOTO 130 


2 : PRINT M$ ( B (X + Y) ) 
TURN 


H 


H 


sNEXT SPRINT 


Y = 0 TO 
sNEXT : RE 
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700 FOR X = 1 TO 9 s IF B(X) < >0 THEN NEXT : GOTO 8 

00 

710 GOSUB 600 

720 FOR X = 1 TO 8 

730 IF R(X) = 27 THEN 760 

740 IF R(X) = 3 THEN 780 

750 NEXT : RETURN 

760 GOSUB 690 

770 VTAB 20 SPRINT "YOU WON THAT WAS A GOOD GAME" 

s GOTO 820 
780 GOSUB 690 

790 VTAB 20 SPRINT "I WON JUST CAN'T KEEP UP, C 

AN YOU ? " s GOTO 820 
800 GOSUB 690 

810 VTAB 20 s PRINT "WELL, CHALK ONE UP FOR THE CAT... 

M 

• • 

820 PRINT SPRINT "PLAY AGAIN (Y/N) s 

830 GET CH$ s IF CH? < > "Y" AND CH$ < > “N" THEN 83 

0 

840 PRINT CH$ SPOKE 34, 0s HOME sIF CH$ < > "Y" THEN P 

RINT SPRINT CHR$ (4); "RUN MENU" 

850 RUN 
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10. Qubic 


If you think Tic-Tac-Toe is too easy, why not try something with a little 
more “depth?” Qubic is three-dimensional tic-tac-toe. You win by get- 
ting three in a row in any direction on any horizontal, vertical, or diagonal 
plane. 

The computer, as your opponent, plays an aggressive game. If you can 
win playing against the computer, you are ready for the US Olympic 
Qubic Team. Tryouts are in Kenosha Falls, Wisconsin, on the 5th Monday 
in February each year. 

Play begins with the traditional toss of the chip. You have a 50-50 
chance of winning the toss, but the computer does too. The player who 
wins the toss moves first. From this point on it’s every player for himself. 

Remember, you or the computer can win with three markers in a row in 
any direction ! There may be more directions than you are first aware of 
because of the three-dimensional board, so stay alert. 

The game s logic is similar to that used in Tic-Tac-Toe, except pointer 
arrays are used to determine the analytical course the program will follow. 
There are 49 possible ways to win in Qubic , thus the amount of analysis 
that is completed before the computer chooses a move can be formidable. 
The computer, however, does it with one equation. 

Game Rules 

1 . If you are selecting the game from the Main Menu, choose 10. If you 
are not using the menu, run the program. 

2. Select X’s or O’s by pressing the X or O key. 

3. The computer will randomly select who goes first. 

4. Enter the level and position where you want to place your marker. 

5. Levels are numbered 1 through 3, from left to right. 

6. Positions are numbered, on each level, as the positions in Tic-Tac- 
Toe: 

1 2 3 

4 5 6 

7 8 9 

7. The object of the game is to get three of your markers in a row, in any 
direction. 
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8. If neither the player nor the computer gets three in a row, the “cat” is 
the winner. 

9. At the completion of each game you can play again or exit to the Main 
Menu. 

10. If you choose to exit, a scorecard is displayed showing how many 
games were won by each side. 


Programming Notes 


10-90 

100-110 

120 

130-140 

150-160 

170 

180 

190 

200-210 

220-240 

250-260 

270 

280 

290-440 

450 

500 

600-660 

670-690 

700-720 

730-740 

750-760 

770 

780-790 

800-840 

850-950 


Program initialization 
You select type of marker 

Assignment of X s and O’s to you and the computer 
Choose and print who moves first 
Delay to read messages 
Setup the screen 

If you go first, display board and get move 
Computer takes best position, if available 
Get level for move and check validity 
Get position for move and check validity 

Check if position is taken and make move if it is not 
taken 

Display new board 
Check if winner 
Determine the computer’s move 
Display new board and check for winner 
Routine to display board status 
Routine to check for winner 
You win, display notice 
Computer wins, display notice 
Cat wins, display notice 
Play again or exit to Main Menu 

End program by showing final score and run the Main 
Menu program 

Restart game 

Routine to accumulate data arrays 
Data arrays for possible win positions 
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Qubic. 


10 

20 

30 

40 

50 


60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

4X0 


REM QUBIC 

POKE 7 50, 0s POKE 751,0;POKE 752,0 
DIM B(3,9),R(49),P(49,3,2),T(27,2) 

IW = 0 : CW = 0;YW = 0 
FOR X = 1 TO 49 : FOR Y = 1 TO 3 s READ 
INT (A / 10) :P(X,Y, 2) = A - P(X,Y, 
s NEXT 


A: P (X, Y, 1 ) = 
1) * 10s NEXT 


M$(0) = " . " s Ml $ = "CHECKING FOR WINNER" sM2$ = " 
'M THINKING" 

TEXT sHOME 


FOR L = 1 TO 3 s FOR P = 1 TO 9sB(L,P) = 0sNEXT sN 

CjA 1 

PRINT TAB ( 18); "QUBIC" 

PRINT SPRINT "WOULD YOU LIKE X’S OR O'Ss "• 

GET M$sIF M$ < > "x" AND M$ < > "o" THEN 110 

P M$U) M = ! "0" 9) = M?:M?(1) = " X " :IF M$ = "X" THEN 

X = RND (2)sIF X > .5 THEN PRINT s PRINT SPRINT " 
I WIN THE TOSS . . • . I GO FIRST 1": GOTO 150 

PRINT : PRINT "YOU WON THE TOSS OF THE CHIP 
YOU GO FIRST 1 " 

FOR DE = 1 TO 1200 
NEXT DE 

HOME : PRINT "LEVELS ARE 1, 2, AND 3, LEFT TO RIG 
HT. : PRINT "POSITIONS ARE NUMBERED (ON EACH LEVE 
L) 1 THROUGH 9 FROM THE TOP-LEFT TO THE BOTT 
OM-RIGHT CORNER. " :VTAB 15:P0KE 34,5:PRINT :HOME 
IF X < = .5 THEN GOSUB 500: GOTO 200 

2(2,5) = 1: GOSUB 500 

VTAB 20 : HTAB 1 : CALL - 958:PRINT "LEVEL (1-3): " 


GET CH$:L - VAL (CH$):IF L < 1 OR L > 3 THEN 210 
PRINT L : PRINT "POSITION (1-9): "; 

GET CH$:P = VAL (CH$):IF P < 1 OR P > 9 THEN 230 
PRINT P 

IF B(L,P) < > 0 THEN PRINT CHR$ (7): GOTO 200 

B(L,P) =9 
GOSUB 500 

GOSUB 600: REM SEE IF WINNER 

REM 

REM 

REM SEE IF COMP CAN WIN 
REM 

IF B ( 2 , 5 ) = 0 THEN B(2,5) = 1: GOTO 450 
CF = 2 

FOR X = 1 TO 49: IF R(X) < > CF THEN 390 
FOR Y = 1 TO 3 : L = P(X,Y,1):P = P(X,Y,2) 

IF B ( L , P ) = 0 THEN B(L,P) = 1: GOTO 450 
NEXT Y 

NEXT X 

IF CF < > 18 THEN CF = 18: GOTO 350 

C = 0 : FOR L = 1 TO 3:F0R P = 1 TO 9:IF B(L,P) = 

0 THEN C = C + 1 : T ( C , 1 ) = L:T(C f 2) = P 
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420 

430 

440 

450 

500 


600 


610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 


NEXT sNEXT 

T = INT ( RND (2) * 27): IF T < 1 OR T > C THEN 43 
0 

B(T(T,1),T(T,2)) = 1 

GOSUB 500 : GOSUB 600: GOTO 200 

HOME : FOR L = 1 TO 3:FOR P = 1 TO 7 STEP 3-VTAB 
(11 + INT (P / 3 ) ) : HTAB (L * 8):FOR Y = P TO P + 

2: PRINT M$ ( B(L # Y) ) ; " ";:NEXT :NEXT :NEXT : PRINT 
: RETURN 

VTAB 20: HTAB 1 : CALL - 958 :T$ = M1$:M1$ = M2$:M2 

$ = T$: PRINT Ml$ ; : FOR L = 1 TO 3: FOR P = 1 T09- 

IF B(L,P) < >0 THEN NEXT :NEXT : GOTO 730 

GOSUB 800 

FOR X = 1 TO 49 

IF R(X) = 27 THEN POP : GOTO 670 
IF R(X) = 3 THEN POP : GOTO 700 
NEXT 

RETURN 

VTAB 20: HTAB 1 : CALL — 958: FOR Y = 1 TO 3: PRINT 
" ( ";P(X,Y,1) ; M -"7P(X,Y,2) 7 ") "7 : NEXT : PRINT 
YW PEEK (750) :YW = YW + 1 : POKE 750,YW 

PRINT "YOU WON THAT WAS A GOOD GAME": GOTO 7 

50 

VTAB 20: HTAB 1 : CALL — 958: FOR Y = 1 TO 3 ’PRINT 
" ( "?P(X,Y,1) 7 ?P(X,Y,2) 7 ") " 7 :NEXT : PRINT 
IW - PEEK (751) :IW = IW + 1 : POKE 751, IW 

PRINT "I WON JUST CAN'T KEEP UP, CAN YOU ?"• 

GOTO 750 

CW = PEEK (752) :CW = CW + l:POKE 752, CW 

VTAB 20: HTAB 1:CALL - 958: PRINT "WELL, CHALK ON 
E UP FOR THE CAT " 

PRINT : PRINT "PLAY AGAIN (Y/N) : 

GET CH$ : IF CH$ < > "Y" AND CH$ < > "N" THEN 76 

0 

PRINT CH$ : IF CH$ = "N" THEN POKE 34,0: HOME :PRIN 
T :PRINT :PRINT "YOU WON: " 7 PEEK (750):PRINT "I 
WON: "7 PEEK (751): PRINT "CAT WON: " 7 PEEK (752) 

:PRINT : PRINT "THANKS FOR THE GAMES 1 ": PRINT CHR$ 
(4) ? "RUN MENU" 


3 = X 


780 

POKE 34,0 

790 

GOTO 60 

800 

FOR X = X TO 49 :R(X) 
THEN PRINT " . “ ; 

810 

FOR Y = 1 TO 3 

820 

R(X) = R(X) + B ( P (X, 

830 

NEXT Y : NEXT X 

840 

RETURN 

850 

DATA 11,12,13,14,15 
18,13,16,19,11,15,19 

860 

DATA 21,22,23,24,25 
28,23,26,29,21,25,29 

870 

DATA 31,32,33,34,35 
38,33,36,39,31,35,39 

880 

DATA 11,21,31,12,22 

890 

DATA 14,24,34,15,25 
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Sams Books cover a wide range of technical topics. We are always looking for 
more information from you, our readers, as to which additional topics need cover- 
age. Please fill out this questionnaire and return it to us with your suqqestions 
They will be appreciated. yy 

Please check the areas of interest: 

1. CURRENT TECHNOLOGIES 2. NEW TECHNOLOGIES 

□ Electronics □ Fiber Optics 

□ Circuit Design □ Robotics 

□ Computers □ Security Electronics 

□ Business Applications □ Speech Synthesis 

□ Fundamentals □ Telecommunications 

□ Languages _ — □ Cellular 

□ Satellite 

□ Video 

□ Other 


Specify 

□ Machine Specific:. 


□ Microprocessors 

□ Networking 

□ Servicing/Repair 

□ 

Other 


3. Do you □ own □ operate a personal computer? Model 

4. Have you bought other Sams Books? Please list: 


5. OCCUPATION 

□ Business Professional 


□ Educator 

□ Engineer 

□ Hobbyist Spec ' fy 

□ Programmer 

□ Retailer 

□ Student 

□ 

Other 


Specify 


6. EDUCATION 

□ High School Graduate 

□ Tech School Graduate 

□ College Graduate 

□ Post-graduate degree 


STATE 

22166 22331 22337 22382 22394 




ATTENTION: Public Relations Department 
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900 

DATA 

17,27,37,18,28,38,19,29,39 

910 

DATA 

11,22,33,14,25,36,17,28,39 

920 

DATA 

13,22,31,16,25,34,19,28,37 

930 

DATA 

11,24,37,12,25,38,13,26,39 

940 

DATA 

17,24,31,18,25,32,19,26,33 

950 

DATA 

11,25,39,13,25,37,17,25,33,19,25,31 


11. Depth Charge 


In Depth Charge , you control the nuclear-powered boat Nemesis , the 
fastest boat in the Navy, on a search-and-destroy mission in the North 
Atlantic. There are always three submarines beneath you, moving at 
different speeds. You destroy them by hitting them with depth charges. 
Timing is of the essence and accuracy is a must. 

The final score is based on how many submarines are destroyed. The 
deeper and faster the submarine, the more points you accumulate for 
destroying it. You only have five passes across the ocean, so don’t 
hesitate. 

This program uses high-resolution shape tables to create the illusion of 
motion. Because it is possible to have up to nine items on the screen at one 
time (one ship, three submarines, and five depth charges), there are times 
when the computer is very “busy” redrawing shapes from the predefined 
tables. When this happens, the game’s speed slows down. Do not despair, 
however, as the pace increases as the number of items on the screen 
decreases. 

Play the game and study the listing to learn more about using shape 
tables. All the shapes in this game (and in other programs in Apple 
Games) were made using the Shape Table Generator program (see 
Program 12). 

Game Rules 

1. If you are selecting the game from the Main Menu, choose 11. If you 
are not using the menu, run the program. 

2. The instruction screen will be displayed. 

3. Press <RETURN> to begin play or <ESC> to exit the program. 

4. Once the game begins, press any key to drop depth charges. 

5. Up to five depth charges can be on the screen at one time. 

6. The object of the game is to destroy as many enemy submarines as 
possible by hitting them with depth charges. 

7. As each submarine is destroyed, it is replaced with another one. 

8 . The game is over when you have crossed the screen the allotted number 
of times. 
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9. When the game is completed, the program returns to the instruction 
screen to play again or exit to the Main Menu. 


Programming Notes 


10-40 

50-60 

70 

100 

110 

120 

130 

200-210 

220 

230-260 

270 

280-310 

320-360 

370-430 

440-460 

470 

500-530 

550-630 

640-690 

700-750 

800-840 

850-880 


Program initialization 
Load and initialize shape table 
Branch to instruction screen 
Game initialization 

Generate locations for the three submarines 
Draw initial ship and pass counter 
Draw initial submarines 

Draw ship, calculating new position. Increment coun- 
ters 

Check for keypress 

A keypress, so drop depth charge if less than five depth 
charges are displayed 

Short delay if no depth charges are on the screen 
Draw depth charges 

Check if depth charge has hit a submarine and blow up 
the submarine if it is a hit 

Check if depth charges are near the bottom of the 
screen; if they are, remove them 

Draw submarines in correct places and calculate their 
next position 
Branch again 

Determine location for submarines 
Blow up submarine and adjust score 
Initial playing screen, draw border and sea 
Initialize game pointers 
Display instruction screen 
Get keypress and determine action 


10 

20 

30 

40 

50 

60 

70 

100 

110 


Depth Charge. 

REM DEPTH CHARGE 

Ml = PEEK (115) :M2 = PEEK (116) 

HIMEMs 8000 

DIM SP(3,3),DC(5,2) 

PRINT "BLOAD SUB. OBJ" 

POKE 232,32: POKE 233,78 
GOTO 800 

HOME : GOSUB 700:GOSUB 650 
FOR X = 1 TO 3: GOSUB 500: NEXT 
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120 SH = 275 : XDRAW 1AT SH,19:PA = 1:VTAB 23: HTAB 31s 
PRINT "PASS: ";PA 

130 FOR X = 1 TO 3 : XDRAW 2 AT SP (X, 1 ) , SP (X, 2 ) :NEXT 

200 XDRAW 1AT SH,19:SH = SH - 3: IF SH < = 4 THEN SH 

= 275 :PA = PA + lsVTAB 23: HTAB 31:PRINT “PASS: 

" ; PA 

210 XDRAW 1AT SH,19:IF PA > NP THEN 800 

220 KB = PEEK ( - 16384) :IF KB < 128 THEN 270 

230 POKE - 16368, 0:REM RESET STROBE 
240 IF DC > =5 THEN 270 

250 DC = DC + 1 : DC ( DC , 1 ) = SH:DC(DC,2) = 21 
260 XDRAW 3 AT DC(DC, 1 ) , DC ( DC, 2 ) 

270 IF DC = 0 THEN FOR J = 1 TO 300:NEXT : GOTO 370 

280 FOR J = 1 TO DC 

290 XDRAW 3 AT DC( J , 1 ) , DC ( J, 2 ) 

300 DC( J , 2) = DC( J , 2 ) + 3 : IF DC(J,2) > = 157 THEN T 

8=1: GOTO 360 

310 XDRAW 3 AT DC( J, 1 ) ,DC( J, 2 ) 

320 FOR X = 1 TO 3: IF DC(J,1) < SP(X,1) - 5 OR DC(J, 
1) > SP(X,1) + 6 THEN 350 

330 IF DC ( J , 2 ) < SP (X, 2 ) - 6 OR DC(J,2) > SP(X,2) TH 
EN 350 

340 GOSUB 550 sGOSUB 500:SP(X,1) = lsXDRAW 2AT SP(X,1 
) , SP(X, 2) 

350 NEXT 

360 NEXT 

370 T9 = 0:IF DC = 0 OR T8 = 0 THEN 440 

380 FOR J = 1 TO DC 

390 IF DC ( J , 2 ) > = 157 THEN MI = MI + Is GOTO 410 

400 T9 = T9 + 1 :DC(T9, 1) = DC( J, 1 ) : DC (T9 , 2 ) = DC(J,2 

) 

410 NEXT 

420 DC = T9 

430 HTAB 1 : VTAB 23 sPRINT "MISSES: ";MI - HI: HTAB 1 :V 

TAB 22 sPRINT "HITS: “;HI 
440 T8 = 0 

450 FOR X = 1 TO 3 : XDRAW 2 AT SP (X, 1 ) , SP (X, 2 ) : SP (X, 1 ) 

= SP(X,1) + SP (X, 3 ) : IF SP(X,1) > = 275 THEN SP 

(X,l) = 4 

460 XDRAW 2 AT SP (X, 1 ) , SP (X, 2 ) :NEXT 

470 GOTO 200 

500 T9 = INT (RND (1) * 10): IF T9 < 1 THEN T9 = 1 
510 SP (X, 3 ) = T9 : SP (X, 1 ) = INT (RND (1) * 200) 

520 SP (X, 2 ) = INT (RND (1) * 155) :IF SP(X,2) < 25 OR 

SP (X, 2 ) > 155 THEN 520 
530 RETURN 

550 FOR Q = 2 TO 4:SCALE= Q : XDRAW 2 AT SP (X, 1 ) , SP (X, 2 
) :VTAB 1 : HTAB 1 sPRINT "":NEXT 


560 


FOR Q = 4 TO 1 STEP 
,1) , SP (X, 2 ) :NEXT 


- 1 : SCALE= Q : XDRAW 2 AT SP(* 


570 

TT 


TT 

+ INT ( SP (X, 2 ) 

580 

XDRAW 

3 AT DC( J, 1 ) , DC( J, 

590 

HI 

= 

HI 

+ 1 

600 

IF 

TT 

> 

HT THEN HT = TT 

610 

IF 

TT 

> 

500 THEN NP = 6 

620 

IF 

TT 

> 

750 THEN NP = 7 
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630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

800 

810 

820 

830 


840 

850 

860 

870 

880 


HTAB 30:VTAB 22 : PRINT "SCORE: " ;TT: RETURN 
REM DRAW BORDER AND SEA 
HGR :HCOLOR= 3:HPLOT 0,20 TO 279,20 
ROT= 0 : SCALE= 1 


HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0 
TT = 0 

RETURN 

BB = 159 :LB = 0:RB = 279:SL = 20 
NP = 5 : TT = 0 : MI = 0:HI = 0 


FOR X = 1 TO 3 : FOR Y = 
NEXT 

FOR X = 1 TO 5:DC(X,1) 
DC = 0: POKE - 16363,0 
RETURN 

TEXT : HOME 2 PRINT TAB ( 
PRINT : PRINT "SCORE: "; 
" ; HT : PRINT 


1 TO 3 : SP (X, Y) = 0 : NEXT 
= 0 : DC (X, 2 ) = 0 : NEXT 


13); "DEPTH CHARGES" 

TT ; TAB ( 20); "HIGH SCORE: 


PRINT PRESS <RETURN> TO PLAY, <ESC> TO END" 
PRINT : PRINT : PRINT "ANY KEY FIRES DEPTH CHARGES 
- ONLY FIVE PASSES ALLOWED - EXTRA PASSES AT 50 
0 AND 750 POINTS" :PRINT 
VTAB 5 : HTAB 38: PRINT " "; 

GET A$ 

IF A$ = CHR$ (13) THEN PRINT : GOTO 100 

IF A$ = CHR$ (27) THEN PRINT : POKE 11 5, Ml: POKE 1 
16, M2 : PRINT CHR$ (4); "RUN MENU" 

GOTO 850 


























































































































































































































Section 3 

UTILITY AND MISCELLANEOUS 

PROGRAMS 


12. Shape Table Generator 


This utility allows you to quickly and easily create high-resolution 
shape tables for use in your programs. While the program is in use, note 
that the actual design is produced in low-resolution graphics. This is so 
you can easily see and create the details of your design. 

Several programs in Apple Games use high-resolution graphics shape 
tables. All of these tables were created using this program. With a little 
practice, you should be able to easily create similar designs and shape 
tables. 


Program Instructions 

1. If you are selecting the program from the Main Menu, choose 12. If 
you are not using the menu, run the program. 

2. The first question asked is the beginning address for the shape table. 
Enter a decimal number representing where your shape table will be 
stored in memory. This can be any location as long as it will not be 
“disturbed” by any other program or variables the computer has in 
memory at the time it is later used. I use a large number, such as 
20000, and this works well in most instances. 

3. The next question is how many shapes you will be making for the 
table. This should be a decimal number from 1 to 255. If you use 
more than 255 shapes, your shape table will not work properly. 

4. Finally, you will be asked the name of your shape table. This can be 
any valid DOS (Disk Operating System) file name. It must begin 
with a letter and it cannot contain commas or colons. Total length for 
the file name should not exceed 29 characters. 

5. The drawing screen will be displayed. The status lines are at the 
bottom of the screen. Note the direction and mode indicators. 

6. To change the cursor’s direction, use the I, J, K, and M keys. These 
represent up, left, right, and down, respectively. If you are using an 
Apple He or Apple lie, you can use the arrow keys to change the 
direction of the cursor. Tty these keys and note their effect on the 
indicators. 
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7. The mode can be in one of two states — Plot or NoPlot. To change 

the mode, use the X key to toggle between the two states. Try this and 
note its effect on the mode indicator. 

8. Now you are ready to draw your shape. Be sure you are in Plot mode 
and choose a direction. Press the <SPACE BAR> and the plotting 
cursor moves in the direction you have chosen. Change mode and 
direction to construct various designs. 

9. Warning: Do not move the cursor more than two spaces UP when in 
the NoPlot mode. If you do, a portion of the shape or shape table will 
be lost. This is a limitation of Applesoft. To get around this limita- 
tion, you can go up two spaces, left one space, right one space, then 
up two more spaces, and so on. 

10. To start over, press C to clear the screen. 

11. To start your shape at any specific X,Y coordinate, press R. If you do 
not specify a starting location, the center of the screen is used. 

12. When you have completed a shape, press <ESC> and the computer 
will save it to memory. This process may take a few moments, 

depending on the shape’s complexify. You can then draw another 
shape for your table. 

Programming Notes 

It is easy to use your shape table in programs. The first step is to 
BLOAD the table into memory. Then POKE the pointers to the beginning 
of the table into memory locations 232 and 233. The following Applesoft 
BASIC instructions will accomplish this task: 

X = Beginning decimal address of table 

J = I NT ( X / 25G ) : K = X - J * 25G 
POKE 232 > K : POKE 233 , J 

Now you can use your shape table with commands such as DRAW and 

XDRAW. These commands are detailed in the Applesoft Reference Man- 
ual. 

Experiment and have fun. Be sure the file name you specify is not the 
same as another file on the disk, or you could erase the original file. 

Program initialization 

Get and validate beginning address for table 
Get and validate number of shapes 
POKE values for number of shapes 


10-40 

50 

60 

70 
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80-90 

Get and validate name for shape table 

100-140 

Program initialization 

150-350 

Translate shape and POKE into memory 

360-370 

Query for another shape 

380 

Increment shape counter, see if table is full 

390-480 

Set up plotting screen and initial modes 

490 

Get keypress and convert it to uppercase 

500 

Make “click” to show a keypress 

510-590 

Check for valid keypresses 

600 

Keypress error, ring bell and loop back 

610-620 

Switch between Plot and NoPlot modes 

630-650 

Command to clear shape 

660 

Change direction to up 

670 

Change direction to down 

680 

Change direction to left 

690 

Change direction to right 

700-810 

Command to move cursor 

820-880 

Command to reset plotter 

890-930 

Subroutine for shape-translation process 

940-960 

Get Y/N response and convert it to uppercase 

970-1080 

Short instruction display 

1090-1110 

Prompt and get keypress 

1120-1150 

Save shape table to disk and exit to the Main Menu 

1160-1290 

REMark statements explaining how to use tables 


Shape Table Generator. 


10 

REM SHAPE TABLE GENERATOR 


20 

Ml = PEEK (115) :M2 = PEEK (116):HIMEM: 

8192 

30 

GOSUB 970 


40 

DEF FN MOD ( Q ) = Q - INT (Q / 256) * 256 

50 

INPUT "WHAT IS THE BEGINNING (DECIMAL) 

ADDRESS 


F THE TABLE? ";A$:BA = INT (VAL (A$))s 
6 OR BA > 65536 THEN 50 

IF BA < 

60 

INPUT "HOW MANY SHAPES ? ";N$:N = INT 
: IF N < 1 THEN 60 

(VAL (N$ 

70 

POKE BA, N: POKE BA + 1 , 0 


80 

INPUT "NAME OF TABLE ? ";N9$ 


90 

IF LEN (N9$) = 0 THEN 80 


100 

SN = 1 : A = BA + 2 + (N * 2) 


110 

POKE 233, INT (BA / 256) 


120 

POKE 232, FN MOD ( BA) 


130 

DIM A( 500 ) 


140 

GOTO 400 


150 

A(MA) = 255 


160 

A1 = A 


170 

TR = 0 : D1 = 0 


180 

FOR X = 0 TO MAX 



74 


190 

200 

210 

220 

230 

240 

250 

260 

270 

230 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 


C = A(X) 

IF C = 0 THEN 890 

IF C = 255 THEN 310 

IF TR + 8 A D1 * C > 255 THEN 270 

TR = TR + 8 A D1 * C 

D1 - D1 + 1 

NEXT 

STOP 

POKE A, TR 
A = A + 1 
TR = 0 : D1 = 0 
GOTO 220 

POKE A, TR: A = A 4- 1 : POKE A,0 
A = A + 1 : POKE A,0 
L = A - A1 

POKE BA + (SN * 2) + 1 , INT ( (A - BA - L) / 256) 
POKE BA + (SN * 2) , FN MOD (A - BA - L) 

VTAB 2 3 : CALL - 958sPRINT "ANOTHER SHAPE (Y/N) • 

" ; :GOSUB 940 ' 

IF A$ = M N" THEN 1120 

SN = SN + Is IF SN > N THEN SN = SN - 1:PRINT "SO 
RRY » SHAPE TABLE IS FULL": GOTO 1120 
REM ENTER SHAPE 
GR 


VTAB 22 :PRINT "SHAPE NUMBER: " ; SN 

MA = 0 : L = 0 

COLOR= 15 

X = 20 :Y = 20 

REM SET UP INITAL MODES 

C$ = "MODE: PLOT " : D$ = "UP ":C = 1:D - 0 
O = SCRN ( X,Y):COLOR= 2: PLOT X,Y 
VTAB 23: CALL - 958: VTAB 23: PRINT C$ • " 
TION: " ; D$ ? : HTAB 1 


GET A$ : IF ASC (A$) > 96 AND ASC (A$) < 123 THEN 
A$ = CHR$ (ASC ( A$ ) - 32) 

F = PEEK ( - 16336) + PEEK ( - 16336) 

IF A$ = CHR$ (27) THEN 150 


IF A$ = "X" 
IF A$ = "C" 
IF A$ = "I" 
IF A$ = "M" 
IF A$ = "J" 
IF A$ = "K" 
IF A$ = M ” 
IF A$ = "R" 
PRINT CHR$ ( 
C = NOT C:C$ 
OT" 

C$ = "MODE: 
VTAB 23: CALL 
B 940 

IF A$ = "N" 
GOTO 400 
D$ = "UP " 
D$ = "DOWN " 


THEN 610 
THEN 630 

OR A$ = CHR$ (11) THEN 660 
OR A$ = CHR$ (10) THEN 670 
OR A$ = CHR$ (8) THEN 680 
OR A$ = CHR$ (21) THEN 690 
THEN 700 
THEN 820 
7 ) ; : GOTO 480 

= "PLOT " : IF NOT C THEN C$ 

" + C$: GOTO 480 

- 958 : PRINT "CLEAR? (Y/N) : 

THEN HTAB 1 : GOTO 480 

:D = 0: GOTO 480 
:D = 2: GOTO 480 


= "NOPL 


7 : GOSU 
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680 

D$ 

= 

"LEFT " 

: D 


3: 

GOTO 

480 

690 

D$ 

= 

"RIGHT" 

sD 

= 

1: 

GOTO 

480 

700 

IF 

D 

= 0 

AND 

Y 

= 

0 

THEN 

470 

710 

IF 

D 

= 1 

AND 

X 

= 

39 

THEN 

470 

720 

IF 

D 

= 2 

AND 

Y 

= 

39 

THEN 

470 

730 

IF 

D 

= 3 

AND 

X 

= 

0 

THEN 

470 


740 COLOR= O : PLOT X,Y:COLOR= 15: IF C THEN PLOT X,Y 

750 ON D GOTO 770,780,790 

760 Y = Y - 1: GOTO 800 

770 X = X + 1: GOTO 800 

780 Y = Y + 1: GOTO 800 

790 X = X - 1 

800 TY = 4 * C + D:A(MA) = TY:MA = MA + 1 
810 GOTO 470 

820 VTAB 2 3 : CALL - 958:PRINT "RESET? (Y/N) : ";:GOSU 
B 940 

830 IF A$ = "N" THEN HTAB 1: GOTO 480 
840 GR 

850 VTAB 23: CALL - 958:INPUT "ENTER X: ";A$:X = VAL 

( A$ ) : IF X < 0 OR X > 39 THEN 850 
860 VTAB 2 3 : CALL - 958:INPUT "ENTER Y: ";A$:Y = VAL 

( A? ) : IF Y < 0 OR Y > 39 THEN 860 
870 MAX = 0 

880 GOTO 450 

890 IF D1 = 0 THEN 210 

900 IF A( X + 1) < 4 AND A(X + 1) < >0 THEN 210 

910 IF A(X + 1) =* 0 THEN D1 = 2:X = X + 1: GOTO 930 

920 D1 = 1 

930 POKE A,TR:A =* A + 1:TR = 0: GOTO 250 

940 GET A$:IF ASC (A?) > 96 AND ASC (A$) < 123 THEN 

A$ = CHR$ (ASC (A$) - 32) 

950 IF A$ < > "Y" AND A$ < > "N“ THEN 940 

960 PRINT A$: RETURN 

970 TEXT :HOME 

980 PRINT "SHAPE TABLE GENERATOR WILL HELP YOU DRAWH 

I -RESOLUTION SHAPE TABLES FOR USE IN YOUR PROG 
RAMS." 

990 PRINT 

1000 PRINT "THE KEYS I, J, K, AND M CONTROL DIREC- T 

ION AND ARE USED FOR UP, LEFT, RIGHT, AND DOWN 
RESPECTIVELY. THE ARROW KEYS MAY ALSO BE USED, 
IF DESIRED." 

1010 PRINT 

1020 PRINT "THE SPACE BAR WILL MOVE THE CURSOR IN T 
HE DIRECTION DESIRED. TO CHANGE FROM" 

1030 PRINT "PLOT TO NO-PLOT USE THE X KEY. THE C" 

1040 PRINT "KEY WILL CLEAR THE SHAPE SO YOU MAY" 

1050 PRINT "START OVER. R WILL RESET THE COORDINATES" 

i 

1060 PRINT "TO ALLOW YOU TO BEGIN THE SHAPE AT A":PRI 
NT "POINT OTHER THAN THE CENTER." 

1070 PRINT 

1080 PRINT "RESPOND TO ALL QUESTIONS (Y/N) h :PRINT 
1090 PRINT "PRESS <RETURN> TO CONTINUE..."; 

1100 GET A$:IF A$ < > CHR$ (13) THEN 1100 
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1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 


PRINT : HOME : RETURN 

PRINT "BSAVE " ; N9$ ; ",A";BA; ",L"; 

TEXT sHOME 

POKE 115 , Ml : POKE 116, M2 
PRINT CHR$ (4) "RUN MENU" 

REM 

REM 

REM WHEN USING THE TABLE 
REM AT A LATER DATE, SET 
REM THE BEGINNING ADDRESS 
REM OF THE SHAPE TABLE IN 
REM MEMORY LOCATIONS $E8 
REM & $E9, LOW BYTE FIRST 
REM 

REM ALSO, IT IS A GOOD IDEA 
REM TO SET HIMEM BELOW 
REM THE TABLE'S STARTING 
REM ADDRESS TO PROTECT IT 
REM 


- BA + 2 
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13. Opening Ceremonies 


Welcome to the welcome! 

This program is the high-resolution demonstration that spells APPLE 

GAMES. This is the second screen displayed when you boot the Apple 
Games disk. 

After studying the program listing, you may discover how to do a few 
tricks with your Apple. Opening Ceremonies uses a small shape table and 
the HPLOT function to create the “sign-board” effect that is displayed 

when the program is run. This same effect can be used (with modifica- 
tions) to display virtually any message. 

Program Instructions 

N 

1. If you are selecting the game from the Main Menu, choose 13. If you 
are not using the menu, run the program. 

2. The demonstration screen will be displayed. 

3. Press <ESC> to exit to the Main Menu. 


Programming Notes 


10-30 

40-50 

60 

70-90 

100 

110-120 

130 

140 

150-170 

180-240 

250-260 

270 

280 

290 

300 

310 

320 

330 


Load and initialize shape table 

Initialize display screen 

Fill top half of screen with color 

Randomly choose letter order 

Initialize pointers 

Choose letter to display next 

Set color 

Check for keypress 
Finish displaying letters 
Execute special effects on screen 

Loop and repeat the demonstration screen 

Position and print letter A 

Position and print letter P 

Position and print letter P 

Position and print letter L 

Position and print letter E 

Position and print letter G 

Position and print letter A 
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340 

350 

360 

370-390 

400 

410 

420-999 

1000-1030 

1100-1120 

1200 

1300-1330 

1400-1430 

1500-1510 

1600-1630 


Position and print letter M 
Position and print letter E 
Position and print letter S 
Randomly change directions 
Routine to draw second shape 
Routine to draw first shape 

Check for <ESC> being pressed, if so run the Main 
Menu program 

Plot letter A 

Plot letter P 

Plot letter L 

Plot letter E 

Plot letter G 

Plot letter M 

Plot letter S 


Opening Ceremonies. 

REM OPENING CEREMONIES 

PRINT "BLOAD ONE SHPS" 

POKE 233,78: POKE 232,32 
HGR 

NU":VT™ 22:PRINT TAB( "PRESS <ESC> FOR ME 

HCOLOR= 3 : FOR X = 0 TO 169:HPLOT 0,X TO 279,X:NE 

IF = C1 IN J U) * 8)sC1 = INT (RND (D * 8) 

. ? 1 - 7 . 0 AND C1 < * 3 AND Cl < >4 AND Cl 

D C < f 1 ? S ' " 0 C < > 3 AND C < > 4 i, 

D C < >7 THEN 100 ^ 

IF Cl + 3 = c OR C + 3 = Cl THEN 70 
for x = 1 TO 10 : A(X) = 0:NEXT 

10 INT ^ RND ^ 1 ^ * 15 ):IF Z < 1 OR Z > 10 THEN 1 
IF A(Z) < >0 THEN 110 

Sb R 420 !IF 2 ” 5 THEN HC0L0R= C1 

40^350, 360 N ZG0SUB 270 ' 2 80,290,300,310,320,330,3 

NEXT” = 1 T0 10:IF MW) = 0 THEN 110 
ROT= 0 

A = 0:B = 90 : ST = l:GOSUB 370 
GOSUB 400 

A = 0:B = 279 : ST = l:GOSUB 370 
GOSUB 410 

^ 0:B 160 : ST = — i • go^ttr 'X’l ca 

GOSUB 400 1. GOSUB 370 

GOTO 70 
END 
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270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


370 

380 

390 

400 


410 

420 


430 

999 

1000 


1010 

1020 


1030 

1100 


1110 


X = 30 :Y = 15 : GOSUB 1000:X = 31:Y = 16:GOSUB 100 
0 : RETURN 

X = 80 s Y = 12 s GOSUB 1100:X = 81:Y = 13:GOSUB 110 
0 : RETURN 

X = 130 sY = 12 s GOSUB 1100sX = 131sY = 13sGOSUB 1 
100 s RETURN 

X = 180 s Y = 15 s GOSUB 1200sX = 181sY = 16sGOSUB 1 
200 s RETURN 

X = 195 s Y = 15 sGOSUB 1300sX = 196sY = 16sGOSUB 1 
300 s RETURN 

X = 15 sY = 82 sGOSUB 1400 sX = 16 sY = 83 sGOSUB 140 
0 s RETURN 

X = 65 sY = 85 sGOSUB 1000 sX = 66 sY = 86 sGOSUB 100 
0 s RETURN 

X = 115 sY = 85 s GOSUB 1500sX = 116sY = 86sGOSUB 1 
500 s RETURN 

X = 165 sY = 85 sGOSUB 1300 sX = 166 sY = 86 sGOSUB 1 
300 s RETURN 

X = 215 sY = 85 sGOSUB 1600sX = 216sY = 86sGOSUB 1 
600 s RETURN 

Q = RND (1) * 10 s IF Q > 5 THEN ST = - ST 

IF ST < > ABS (ST) THEN C = AsA = BsB = C 

RETURN 

SCALE= 28 s FOR X = A TO B STEP STsXDRAW 2 AT 279, X 
sGOSUB 420s NEXT s RETURN 

SCALE= 17s FOR X = A TO B STEP STsXDRAW 1AT X,167 
sGOSUB 420s NEXT s RETURN 

P = PEEK ( - 16384) sPOKE - 16368, 0sIF P < >15 

5 THEN RETURN 
PRINT "RUN MENU" 

END 

HPLOT X + 14 , Y + 15 TO X + 39, Y + 15 TO X + 43, Y 
+ 17 TO X + 48, Y + 21 TO X + 50, Y + 26 TO X + 5 
0 , Y + 50 TO X + 14, Y + 50 TO X + 10, Y + 48 TO X 
+ 8 , Y + 46 TO X + 6 , Y + 43 TO X + 5,Y + 39 TO X 
+ 5 , Y + 37 TO X + 6 , Y + 34 TO X + 10, Y + 30 TO X 
+ 14, Y + 28 TO X + 40, Y + 28 TO X + 39, Y + 25 T 
O X + 38, Y + 24 TO X + 36, Y + 23 TO X + 14, Y + 2 
3 

HPLOT X + 14, Y + 23 TO X + 11, Y + 21 TO X + 11, Y 
+ 17 TO X + 14, Y + 15 

HPLOT X + 18, Y + 34 TO X + 40, Y + 34 TO X + 40, Y 
+ 40 TO X + 18, Y + 40 TO X + 16, Y + 39 TO X + 1 

5 , Y + 37 TO X + 15, Y + 36 TO X + 16, Y + 35 TO X 

+ 18, Y + 34 
RETURN 

HPLOT X + 5 , Y + 20 TO X + 39, Y + 20 TO X + 43, Y 
+ 22 TO X + 46, Y + 24 TO X + 48, Y + 27 TO X + 50 
, Y + 31 TO X + 50, Y + 39 TO X + 48, Y + 43 TO X + 
46, Y + 46 TO X + 43, Y + 48 TO X + 39, Y + 50 TO 
X + 15, Y + 50 TO X + 15, Y + 70 TO X + 5,Y + 70 T 
O X + 5 , Y + 20 

HPLOT X + 15, Y + 30 TO X + 36, Y + 30 TO X + 39, Y 
+ 32 TO X + 40, Y + 34 TO X + 40, Y + 36 TO X + 3 

9 , Y + 38 TO X + 36, Y + 40 TO X + 15, Y + 40 TO X 

+ 15, Y + 30 


I 


80 



1120 RETURN 


1200 HPLOT X + 5 , Y - 5 TO X + 15 , Y - 5 TO X + 15, Y + 
50 TO X + 5 , Y + 50 TO X + 5,Y - 5: RETURN 
1300 HPLOT X + 16, Y + 15 TO X + 39, Y + 15 TO X + 44, Y 
+ 17 TO X + 49, Y + 22 TO X + 50, Y + 25 TO X + 5 

0 , Y + 28 TO X + 49, Y + 31 TO X + 47, Y + 33 TO X 

+ 44, Y + 34 TO X + 39, Y + 35 TO X + 15, Y + 35 TO 
X + 15, Y + 37 TO X + 16, Y + 39 TO X + 19, Y + 40 
TO X + 40, Y + 40 TO X + 45, Y + 42 TO X + 46, Y + 

44 TO X + 46, Y + 46 TO X + 45, Y + 48 TO X + 40, 

Y + 50 

1310 HPLOT X + 40, Y + 50 TO X + 16, Y + 50 TO X + 13, Y 
+ 49 TO X + 6 , Y + 42 TO X + 5,Y + 40 TO X + 5,Y 
+ 25 TO X + 6 , Y + 22 TO X + 11, Y + 17 TO X + 13 
,Y + 16 TO X + 16, Y + 15 

1320 HPLOT X + 19, Y + 23 TO X + 38, Y + 23 TO X + 40, Y 

+ 25 TO X + 40, Y + 27 TO X + 23, Y + 29 TO X + 1 

5 , Y + 29 TO X + 15, Y + 27 TO X + 16, Y + 25 TO X 

+ 17, Y + 24 TO X + 19, Y + 23 
1330 RETURN 

1400 HPLOT X + 16, Y + 20 TO X + 50, Y + 20 TO X + 50, Y 
+ 59 TO X + 48, Y + 63 TO X + 46, Y + 66 TO X + 4 

3 , Y + 68 TO X + 39, Y + 70 TO X + 15, Y + 70 TO X 

+ 10, Y + 68 TO X + 9 , Y + 66 TO X + 9,Y + 64 TO X 

+ 10, Y + 62 TO X + 15, Y + 60 TO X + 36, Y + 60 T 
O X + 38, Y + 59 TO X + 40, Y + 56 TO X + 40, Y + 5 

0 TO X + 16, Y + 50 TO X + 12, Y + 48 

1410 HPLOT X + 12, Y + 48 TO X + 9,Y + 46 TO X + 7,Y + 

43 TO X + 5 , Y + 39 TO X + 5,Y + 31 TO X + 7,Y + 

27 TO X + 9 , Y + 24 TO X + 12, Y + 22 TO X + 16, Y 
+ 20 

1420 HPLOT X + 19, Y + 30 TO X + 40, Y + 30 TO X + 40, Y 
+ 40 TO X + 19, Y + 40 TO X + 16, Y + 38 TO X + 1 

5 , Y + 36 TO X + 15, Y + 34 TO X + 16, Y + 32 TO X 

+ 19, Y + 30 
1430 RETURN 

1500 HPLOT X + 27, Y + 36 TO X + 40, Y + 15 TO X + 50, Y 
+ 15 TO X + 50, Y + 50 TO X + 40, Y + 50 TO X + 4 

0 , Y + 34 TO X + 32, Y + 50 TO X + 23, Y + 50 TO X 

+ 15, Y + 34 TO X + 15, Y + 50 TO X + 5,Y + 50 TO 
X + 5 , Y + 15 TO X + 15, Y + 15 TO X + 28 , Y + 36 
1510 RETURN 

1600 HPLOT X + 16, Y + 15 TO X + 39, Y + 15 TO X + 44, Y 
+ 16 TO X + 45, Y + 18 TO X + 45, Y + 20 TO X + 4 

4 , Y + 22 TO X + 39, Y + 24 TO X + 17, Y + 24 TO X 

+ 15, Y + 26 TO X + 15, Y + 27 TO X + 17, Y + 28 TO 

X + 40, Y + 28 TO X + 44, Y + 30 TO X + 47, Y + 32 
TO X + 49, Y + 35 TO X + 50, Y + 38 TO X + 50, Y + 
40 TO X + 49, Y + 43 TO X + 47, Y + 46 
1610 HPLOT X + 47, Y + 46 TO X + 44, Y + 48 TO X + 40, Y 

+ 50 TO X + 16, Y + 50 TO X + 11, Y + 48 TO X + 1 

0 , Y + 46 TO X + 10, Y + 44 TO X + 11, Y + 42 TO X 
+ 16, Y + 41 TO X + 38, Y + ,41 TO X + 40, Y + 39 TO 
X + 40, Y + 38 TO X + 38, Y + 36 TO X + 16, Y + 36 
TO X + 12, Y + 34 TO X + 9,Y + 32 TO X + 7,Y + 2 
9 TO X + 6 , Y + 28 TO X + 6,Y + 24 
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J 

I 




HPLOT X + 6,Y + 24 TO X 
17 TO X + 16, Y + 15 
RETURN 



+ 9 , Y + 19 TO X 
















+ 12 , Y 










14. Master Catalog 

This is a program that you may find useful. If you are like manv 
computer-enthusiasts, you have a large collection of disks. On those disks 
are assorted programs and who knows what else. Precisely the point of 
Master Catalog. It will allow you to organize and keep track of tht 
program names so you can find them easily. It is a short data-base 

programs' 111 Pr ° gram 38 3 ^ SyStem for y° ur disks and 

Y ° U can fearch by program name, language and type, record number 

3te rr mt ° the SyStem) ’ and disk location (which disk the program 
is on). You can even sort all the records in your file. 

As you use the program, note that many of the routines do special 

ST SUCh | 3S all ° wing Stnn 8 in P ut that includes virtually any char- 
ter. There is also a routine that allows the analysis and reformatting of 

entered dates. The sorting routine used is Quicksort. The detailed expla- 
, 0n of * hese routines is beyond the scope of this book, but information 
#"’2208) hey W ° rk 1S in BASIC Tncksf ° r the A PP le ( Howa rd W. Sams 


Program Instructions 


1. If you are selecting the program from the Main Menu, choose 14. If 
you are not using the menu, run the program. 


2 . 


The first requirement is entering the 
the format MM/DD/YY. 


date. Your response should be in 


3 . 


After you have entered the date, the following 
displayed: 


menu choices will be 


1) ENTER LISTING 

2) CHANGE LISTING 

3) DELETE LISTING 

4) SEARCH LISTING 

5) PRINT LISTING 

6) SORT LISTINGS 

7) EXIT PROGRAM 

4 that^function ^ fUnCti ° nS Usted ° n the menu ’ P ress the number of 
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5. Each function is self-prompting; follow the directions and answer the 
questions as they appear on the screen. 

6 ’ 52“ n ISTING f WiU add a reCOrd t0 the s y stem - A record consists 
ot the following information: 

PROGRAM NAME The file’s name as it appears in the disk catalog 
It can be up to 35 characters long. ® 

LANGUAGE TYPE Enter the language type for the file, if applica- 

PROGRAM TYPE Choose from the types shown on the screen 
They are: 


1) Game 

2) Business 

3) Utility 

4) Text File 

5) Education 

6) Other 


DATE ENTERED This is the system date you entered when you first 
started the program. 

DISK LOCATION This is any location that helps you locate the disk 
at a later time. This field allows a maximum of five characters. 

7. CHANGE LISTING allows you to change any information that was 
entered through the ENTER LISTING function. 

8 ' ^ L ^ TE LISTING allows individual records to be deleted from the 

i deS ™ """ need ta r ” ,h£ -»"* —ber of ,he Z 

be deleted. Then the record is displayed and you are queried as to 
whether you want to delete the record shown. 

9 ' fecor^LV^iT thC filC for 3 S P ecific record for all 

ecords that match a keyword” that you enter. To search for a 

match, specify the record to recall or the field to use. 

10 ‘ fcreT of info NG i diSPl r 311 reC ° rdS - ThCre is 3 P ause each 

screen of information. Press <RETURN> to proceed to the next 

“• fi G J T s LI rt S . TING H S sorts the records in the data base by any specific 
field. Sorting is done in ascending order. * F 
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12. EXIT PROGRAM saves your modified data base to disk and then 
runs the Main Menu. 


Programming Notes 


10-20 

30-100 

110-130 

200-240 

250-305 

325-330 

350 

400 

500-520 

600-710 

720-730 

740 

1000-1160 

2000-2260 

3000-3150 

4000-4400 

5000-5130 

6000-6210 

7000-7090 


Program initialization 

Open and read program file from disk 

Program initialization 

String input routine 

Date analysis routine 

Get a Y/N response 

Print underline characters for input field 
Invalid record number error message 
Get and analyze date 
Print program menu 
Prompt for choice and validate response 
Branch to appropriate program section 
Routine for inputting a record 
Routine for changing a record 
Routine for deleting a record 
Routine for searching records 
Routine for displaying records 
Routine for sorting records 

Save file, exit program, and transfer to the Main Menu 

Master Catalog. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 


120 

130 

200 

205 

210 


REM MASTER CATALOG 

D$ = CHR$ (4) :OP$ = D$ + "OPEN"sCL$ = D$ + 
E " s RD$ = D$ + "READ"sWR$ = D$ + "WRITE" 
ONERR GOTO 90 

PRINT D$; "UNLOCK PROGRAMS" 

PRINT OP$ ; "PROGRAMS " s PRINT RD$ ; "PROGRAMS " 
INPUT Ns DIM T$(N + 50,5) s IF N = 0 THEN 100 
FOR X = 1 TO Ns FOR Y = 1 TO 5 
MX = 35 s GOSUB 200sT$(X,Y) = I$sNEXT sNEXT s 


"CLOS 


GOTO 


N = 0 


PRINT CL$ s POKE 216,0 

PT$ ( 1 ) = "GAME" s PT$ ( 2 ) = "BUSINESS" : PT$ ( 3 ) = "UT 

= "TEXT FILE” s PT$ ( 5 ) = "EDUCATION" 
: PT$ ( 6 ) = "OTHER" 

NT = 6 

GOTO 500 

A$ = " " S I$ = " " 


GET A$:A$ = LEFT$ (A$,1):A = ASC (A?) 
IF A = 13 THEN PRINT : RETURN 
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215 

220 

225 

230 

235 

240 

250 

255 

260 

265 

270 

275 

280 

285 

290 


295 

300 


305 

325 


330 

350 


400 

500 

510 

520 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

1000 




VAL (MID$ (l$,YY) 


MM 

DD 

MM 

(YY 


< 1 OR MM > 12 THEN 305 

< 1 OR DD > 31 THEN 305 

= 2 AND (INT (YY / 4) * 4 < > 
/ 400) * 400 < > YY) AND DD > 

6 OR MM = 9 OR MM 


YY) AND (IN 
28 THEN 305 
= 11) AND D 


IF A = 8 AND LEN (l$) > 0 THEN 1$ = MID$ (l$,l.L 
EN (1$) - 1) :PRINT A$;CHR$ (95);A$; 

IF A = 8 THEN 205 
IF LEN (1$) = MX THEN 205 
IF A < 32 OR A > 90 THEN 205 
PRINT A$ ; 

1$ = 1$ + A$: GOTO 205 
MM = 0s DD = 0 : YY = 0 

K = LEN (l$)sIF K < 6 OR K > 8 THEN 305 
MM = VAL ( 1$ ) sFOR J = 1 TO K 

IF VAL (MID$ (I$,J,1)) = 0 AND MID$ (l$,J,l) < 

> "0" THEN DD = YYsYY = J + 1 ' 1 

NEXT sIF DD = 0 THEN 305 
DD = VAL (MID$ (l$,DD,2))sYY 

IF 
IF 
IF 

T (YY / 400) * 

IF (MM = 4 OR MM 
D > 30 THEN 305 

?La» RIGHT S (, ,’ 00B + STR $ (MM), 2) + "/" + RIGHT? 
(00 + STR? ( DD ) , 2 ) + "/" + RIGHT? ("00" + STR? 

(YY),2) sRETURN ? 

I? = ""s RETURN 
GET CH? s IF CH? < 

5 

PRINT CH$s RETURN 

FOR X = 1 TO MX SPRINT CHR$ (95);sNEXT 
TO MX SPRINT CHR$ (8);sNEXT s RETURN 

PRINT SPRINT "SORRY, INVALID RECORD NUMBER 
M sFOR X = 1 TO 1000s NEXT s RETURN 
HOME 

PRINT "TODAY'S DATE (MM/DD/YY) s ";sMX = 8sGOSUB 
350 s GOSUB 200 sGOSUB 250$IF 1$ = M " THEN 510 
DT$ = 1$ 

TEXT sHOME 

PRINT TAB ( 9)"MASTER PROGRAM CATALOG" s PRINT TAB( 
16 ) DT$ 

POKE 32,8 

PRINT SPRINT 

PRINT "1) ENTER LISTING" 

PRINT ”2) CHANGE LISTING" 

PRINT "3) DELETE LISTING" 

PRINT ”4) SEARCH LISTINGS" 

PRINT "5) PRINT LISTINGS" 

PRINT "6) SORT LISTINGS" 

PRINT "7) EXIT PROGRAM" 

POKE 32,0 

VTAB 20 s PRINT "CHOICE (1-7) s 
GET CH$ s CH = VAL (CH$)sIF CH 
730 


> "Y" AND CH$ < > "N" THEN 


32 


sFOR X = 1 


1 


ii 


< 1 OR CH > 7 THEN 


: ° N CH G0T0 2000, 3000,4000, 5000,6000# 

7 000 
HOME 
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1010 PRINT "THIS WILL BE PROGRAM # ";N + 1: PRINT 
1020 PRINT "WHAT IS THE PROGRAM NAME ?" 

1030 MX = 35 : GOSUB 350:GOSUB 200:T$(N + 1,1) = 1$ 

1040 VTAB 7 : PRINT "LANGUAGE TYPE: "; 

1050 MX = 10 : GOSUB 350:GOSUB 200:T$(N + 1,2) = 1$ 

1060 VTAB 9: PRINT "PROGRAM TYPE:":PRINT 
1070 FOR X = 1 TO NT iPRINT " ";X?") ";PT$(X):NEX 

T :PRINT 

1080 MX = 1 : GOSUB 350sGOSUB 200:T = VAL (l$):IF T < 1 
OR T > NT THEN 1060 
1090 T$ ( N + 1,3) = 1$ 

1100 T$(N + 1,4) = DT$ 

1110 PRINT SPRINT "DISK LOCATION: "; 

1120 MX = 5 : GOSUB 350:GOSUB 200sT$(N + 1,5) = 1$ 

1130 N = N + 1 

1140 PRINT SPRINT "MORE ENTRIES (Y/N) : "; 

1150 GOSUB 325: IF CH$ = "Y" THEN 1000 
1160 GOTO 600 

2000 IF N = 0 THEN PRINT "SORRY, THERE ARE NO RECORDS 
• • . " : FOR J = 1 TO 1000: NEXT s GOTO 600 
2010 HOME SPRINT "WHAT IS THE RECORD NUMBER OF THE LI 
STINGYOU WISH TO CHANGE ? " 

2020 MX = 4 : GOSUB 350 

2030 GOSUB 200 s IF 1$ = "" THEN 600 

2040 CH = VAL ( I $ ) : IF CH < 1 OR CH > N THEN GOSUB 400 
: GOTO 2000 
2050 HOME 

2060 PRINT "RECORD NUMBER: " ? CH 

2070 PRINT : FOR X = 1 TO 5 SPRINT X; "." s PRINT sNEXT :P 
OKE 32,4 

2080 VTAB 3 SPRINT "NAME: ";T$(CH,1) 

2090 PRINT SPRINT "LANGUAGE: ";T$(CH,2) 

2100 PRINT SPRINT "PGM TYPE: "?PT$(VAL (T$(CH,3))) 

2110 PRINT SPRINT "DATE ENTERED: "?T$(CH,4) 

2120 PRINT SPRINT "DISK LOCATION: ";T$(CH,5) 

2130 POKE 32, 0s PRINT sPRINT 

2140 PRINT sPRINT "NUMBER OF ITEM TO CHANGE (1-5): 

2150 GET CH$:Q = VAL (CH$):IF Q < 1 OR Q > 5 THEN 215 
0 

2160 PRINT Q sPRINT sPRINT "CHANGE TO WHAT: "; 

2170 IF Q = 1 THEN MX = 35 sPRINT 
2180 IF Q = 2 THEN MX = 10 

2190 IF Q = 3 THEN MX = 1 

2200 IF Q = 4 THEN MX = 8 

2210 IF Q = 5 THEN MX = 5 

2220 GOSUB 350 : GOSUB 200 
2230 IF Q = 4 THEN GOSUB 250 
2240 T$ ( CH, Q ) = 1$ 

2250 PRINT sPRINT "MORE CHANGES (Y/N) : ";:GOSUB 325-1 
F CH$ = "Y" THEN 2000 
2260 GOTO 600 

3000 IF N = 0 THEN PRINT "SORRY, THERE ARE NO RECORDS 
• . . " : FOR J = 1 TO 1000 sNEXT s GOTO 600 
3010 HOME : PRINT "WHAT IS THE RECORD NUMBER OF THE LI 
STINGYOU WISH TO DELETE ? " 
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i 


3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 


4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 


CH < 1 OR CH > N 


II 


CH 


MX = 4 : GOSUB 350 
GOSUB 200 
CH = VAL (1$) :IF 
: GOTO 3000 
HOME 

PRINT "RECORD NUMBER: 

PRINT : FOR 
OKE 32,4 
VTAB 3 : PRINT 
PRINT : PRINT 
PRINT : PRINT 
PRINT : PRINT 
PRINT : PRINT 
POKE 32,0: PRINT : PRINT 
PRINT "O.K. TO DELETE (Y/n) • " 

= "N" THEN 600 

FOR X = 1 TO 5:T$ (CH,X) = T$(N,X)- 
1 : GOTO 600 9 V * 

IF « “ ? THEN PRINT "SORRY, THERE ARE 
: FOR J = 1 TO 1000 : NEXT : GOTO 
"WOULD YOU LIKE TO 


THEN GOSUB 400 


x = 1 TO 5 : PRINT X; " . " : print :NEXT :P 

"NAME: " ? T$ ( CH, 1 ) 

"LANGUAGE: "?T$(CH,2) 

" PGM TYPE: ";PT$(VAL (T$(CH,3))) 

"DATE ENTERED: ";T$(CH,4) 

"DISK LOCATION: ";T$(CH,5) 

: GOSUB 325: IF CH$ 
NEXT :N = N - 


HOME : PRINT 
PRINT 


ii 


NO RECORDS 

600 

SEARCH BY : " 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


M 


n 


ii 


ii 


n 


1) RECORD NUMBER" 

2) PROGRAM NAME" 

3 ) LANGUAGE M 

4) PROGRAM TYPE" 

5) DATE ENTERED" 

6) DISK LOCATION" 

PRINT : PRINT : PRINT "WHICH CHOICE (1-6)- 
GET CH$ : CH = VAL (CH$):IF 
4090 

ifS A™ " KEYW0RD F0R SEARCH : 

35 : PRINT 
10 
1 
8 
5 


: PRINT 


ii 


CH < 1 OR CH > 6 THEN 


IF 

IF 

IF 

IF 

IF 


CH 

CH 

CH 

CH 

CH 

CH 


H 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

GOSUB 350 : GOSUB 200:Q$ 
IF CH = 5 THEN GOSUB 


2 

3 

4 

5 

6 


MX 

MX 

MX 

MX 

MX 

MX 


= 1$ 

250 : Q$ = i$:iF Q$ = 


ii ii 


FO^kTi“r F OR x =™ EH 


1000: NEXT : GOTO 4000 

HOME : PRINT TAB( 15): FLASH : PRINT 
RMAL : POKE 34,2 
IF CH = 1 THEN 4380 
FOR X = 1 TO N 

1) 


"SEARCHING" :NO 


IF T$ ( X , CH - 
HOME 

PRINT : PRINT 
PRINT : PRINT 

PRINT : PRINT '’LANGUAGE: "-T$(X 2) 

PRINT : PRINT "PGM TYPE: ";PT$(VAL (T$(X 3))) 

PRINT : PRINT "DATE ENTERED: " -T$(X 4) # 

PRINT : PRINT "DISK LOCATION: "• T$(X 5) 

IF CH = 1 THEN 4340 # MX ' 5) 

VTAB 2 3 : PRINT "PRESS < RETURN > TO CONTINUE..."; 


< > Q$ THEN 4330 


"RECORD NUMBER: ";X 

"NAME: " ? T$ (X, 1 ) 

"LANGUAGE 
"PGM TYPE 
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4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

6000 

6005 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 


GET P$:IF P$ < > CHR$ (13) THEN 4320 

NEXT 

POKE 34,0 

1:CALL “ 958: FLASH : PRINT "END OF 
SEARCH. . • ; : NORMAL SPRINT "PRESS <RETURN> "• 

GET P$:IF P$ < > CHR$ (13) THEN 4360 ' 

GOTO 600 

B 400^ GOTO ^600 X < 1 0R X > N ™ E N VTAB 10:GOSU 

PRINT : PRINT "RECORD NUMBER: "-X 

GOTO 4230 

IF m I 0 ™ EN PRINT " HORRY , THERE ARE NO RECORDS 
••• :FOR J - 1 TO 1000; NEXT : GOTO 600 
C = 0:FOR X = 1 TO N 

C=C+1:IFC=1 THEN HOME 

INVERSE :PRINT X; : NORMAL :PRINT " "*TS(X 

fStt.I)," ,,;PT$(VAL <T$(X,3)'));" " 

PRINT 

IF C < 7 THEN 5100 

GET^rHS 'jp 1 ™, "PRESS <RETURN> TO CONTINUE..."; 

O? CH? < > CHR? < 13 ) THEN 5080 

VTAB 23 : HTAB 1: PRINT :C = 0 

NEXT 

™^ HTAB 1:CALL * 958: PRINT "END OF LISTING 
...PRESS < RETURN > . . . " ; 

GET CH$ : IF CH$ < > CHR$ (13) THEN 5120 

GOTO 600 

IF M.p, 0 ™f N PR ,? NT " S0RRY ' THERE are no records 
... .FOR J - 1 TO 1000: NEXT : GOTO 600 

PRINT : ” RINT Y ° U LIKE T ° S0RT BY :": PRINT 

PRINT 1) PROGRAM NAME" 

PRINT " 2) LANGUAGE" 

PRINT " 3) PROGRAM TYPE" 

PRINT " 4) DATE ENTERED" 

PRINT " 5) DISK LOCATION" 

PRINT : PRINT :PRINT "WHICH CHOICE (1-5). '• . 

6070 CH?iCH = VAL (CH?)sIF CH < 1 OR CH > 5 'THEN 

NE^OMENTr^ !VTAB 8:HTAB 10:PRINT "SORTING - 0 

REM - QUICKSORT 

P= 1:Q=N:T0=0 

IF P > = Q THEN 6200 

V$ = T$ ( P , CH) : I = P:J = Q + ! 

J - J - 1:IF T$ ( J , CH ) > V$ THEN 6130 

1 + ^ s ^ T$(I,CH) < V$ AND I < N THEN 6140 

5,t S . Mu.*?.? “ x 

(Sfxjf : JJSeXT T? = T$(P ' X):T ?‘ P ' X > = T$(J,X):T$ 

T0 l J 2) ! > n < o (Q T J \ THEN ST (™ + 1) = J + 1 : ST( 

- Q:Q = J - 1: GOTO 6190 

ST(T0 + 1) = P ; ST ( T0 + 2 ) = J - l ; p = j + x 
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6190 T0 = T0 + 2: GOTO 6110 

6200 IF T0 < >0 THEN Q = ST(T0):P = ST(T0 - 1 ) • T0 = 

T0 - 2s GOTO 6110 
6210 GOTO 600 

7000 PRINT OP$; "PROGRAMS "SPRINT D$; "DELETE PROGRAMS"- 

PRINT OP$ ? "PROGRAMS" 

7010 PRINT WR$? "PROGRAMS" 

7020 PRINT Ns IF N = 0 THEN 7070 
7030 FOR X = 1 TO N 

7040 FOR Y = 1 TO 5 

7050 PRINT T$ ( X , Y) 

7060 NEXT sNEXT 

7070 PRINT CL$ 

7080 PRINT "LOCK PROGRAMS" 

7090 HOME SPRINT sPRINT D$;"RUN MENU" 
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